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Non tutti i leoni 
sono veramente Leoni. 


Ecco come 
riconoscere un 
vero programma 
Leoni Informatica 
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Quando per il tuo 
home-computer il negoziante 
ti offre un programma a basso costo, dif¬ 
fidane. Nella quasi totalità dei casi si tratta di una 
copia duplicata, che per di più può non girare bene. Le 
conseguenze, specialmente se si tratta della tua contabilità, sono 
facilmente immaginabili. Leoni Informatica, Azienda leader, fa programmi 
da sempre, e da sempre è sinonimo di altissima qualità. Riconoscere questi 
programmi è facile. La classica confezione bianca e blu è accuratamente si¬ 
gillata. Airinterno, allegate al floppy disk, vi sono le istruzioni in italiano e, cosa 
importantissima, la cartolina di garanzia. Inoltre Leoni Informatica è stata la 
prima in Italia ad offrire la garanzia a vita, l’assistenza ed il continuo aggiorna¬ 
mento dei suoi programmi. Al tuo negoziante chiedi quindi la qualità, l'assisten¬ 
za e l'aggiornamento: chiedi i programmi Leoni Informatica. 
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Richiedi a Leoni Informatica l’elenco g uida ai suoi prog rammi. 


Leoni 



infbrmafica 


Leoni Informatica non ti abbandona mai 


Leoni informatica S r l. - Sviluppo Software - Vendita Hardware 
Via Valsolda, 21 - 20143 Milano - Tel Ò2-8467378-8465072 


Potete trovare i nostri programmi in tutta Italia nei punti vendita Melchioni 
e dai rivenditori autorizzati che espongono il nostro marchio. 


BES Milano 
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Il nostro medioevo 

di Riccardo Paollllo 


Quindici anni fa, nel 1970, Roberto Vacca scrisse un 
libro che conobbe un certo successo. Il titolo. Il medioe¬ 
vo prossimo futuro , e soprattutto il sottotitolo, la degra¬ 
dazione dei grandi sistemi, chiarivano immediatamente 
la tematica trattata. 

L’autore, dopo aver preso in esame i maggiori sistemi 
sui quali si basa la società attuale (produzione, distribu¬ 
zione di energia, trasporti, comunicazioni, trattamento 
delle informazioni, ecc.), ne metteva in luce il degrado. 
Più precisamente sosteneva che ogni sistema era sogget¬ 
to ad una crescita disordinata destinata a portarlo ad 
una pericolosa situazione di complessità ed instabilità. 
Secondo l’autore, una concomitanza casuale di conge¬ 
stioni in molti sistemi nella stessa area avrebbe potuto 
causare un processo catastrofico destinato a paralizzare 
il funzionamento delle società più sviluppate e provoca¬ 
re la morte a milioni di persone. 

Si trattava in definitiva di un saggio scritto da un 
pessimista, ma secondo una logica stringente anche se 
forse poco probabile. 

Anche se ovviamente si tratta di un lavoro ormai datato 



(come ammise lo stesso autore in una postfazione scritta 
otto anni dopo, e per certi versi già superata anch’essa), 
sono rimasto abbastanza colpito rileggendo recente¬ 
mente il capitolo dedicato ai calcolatori elettronici (il 
neologismo informatica era allora scarsamente usato). 
Intitolate emblematicamente Speranze mal riposte e ti¬ 
mori infondati dei calcolatori elettronici, queste pagine 
scritte tanti anni fa contengono delle osservazioni sicu¬ 
ramente valide anche oggi nel campo dell’informatica 
personale. 

L’autore afferma giustamente che per avere dei vantaggi 
dall'utilizzo del calcolatore, occorre prima definire la 
struttura e la logica del sistema esaminato, operare cioè 
un’analisi sistematica. 

Questo tipo di approccio è richiesto anche nel caso dei 
calcolatori personali. Se, ad esempio si volessero memo¬ 
rizzare delle informazioni bisognerebbe ovviamente sta¬ 
bilirne il tipo e il formato. Per eseguire correttamente 
questa operazione, non basta elencare casualmente i 
dati su cui si intende lavorare; occorre esaminare il 
problema da un punto di vista più generale rispondendo 
a domande del tipo: che operazioni devo compiere sui 
dati, in che modo intendo ricercare le informazioni me¬ 
morizzate, quali nuovi dati posso prevedere di aggiun¬ 
gere in futuro, quanti dati penso di memorizzare, e così 
via. 

Un vantaggio indiretto, ma importantissimo dell’ap¬ 
proccio sistematico, evidenziato anche da Roberto Vac¬ 
ca è costituito dalla possibilità di selezionare i dati evi¬ 
tando risultati superflui. 

Infatti procedure poco curate dal punto di vista dell’a¬ 
nalisi, tendono a produrre moli enormi di dati che anzi¬ 
ché chiarire le idee, sortiscono l’effetto opposto. E’ noto 
che la tendenza attuale, che privilegia l’immediatezza 
delle rappresentazioni grafiche, è quella di avere il minor 
numero possibile di dati significativi. 

A parte l’indubbia competenza e sensibilità dell’auto¬ 
re, tra l’altro docente di Automazione del Calcolo e 
quindi appartenente ad un osservatorio privilegiato, re¬ 
sta il fatto che queste intuizioni, avute molto prima della 
nascita dei calcolatori personali, stupiscono un po’. Pro¬ 
babilmente (e direi fortunatamente) la velocità dell’evo¬ 
luzione tecnologica è molto superiore all’adeguamento 
della mentalità umana. Questo significa che se in quindi¬ 
ci anni cambia, e di molto, il panorama tecnico, in 
proporzione viene solo impercettibilmente modificato il 
nostro modo di pensare e operare. 

Quindi niente paura: è ancora lontana la figura dell’uo¬ 
mo automa e viceversa quella della macchina umana! 
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SERVIZIO SOFTWARE 





P.S. propone ai propri lettori i dischi o le cassette dei programmi 
pubblicati. I programmi, provati e garantiti, sono di immediato utilizzo. 




P.S. n° 

Programma 

• 9 *r 

Sistema 

3 

èt ; ’ 

La carta del cielo 
Collisione 

.Apple II 

4 

Interi in precisione 
multipla 

Grafica 3D 

■\ ■ 

Apple. Il 

e 

5 

Pretty printer 

Shape table 

Apple II 

7 

Data base modulare 

Apple II 

12-13 

Wei-ch'i 

CBM 3032 

14 

Tool-Kit 

C 64 

19 

Type Writer 

VIC 20 

20 

Scopa 

C 64 - 3032 


Prezzo 

Codice 

Supporto 

30.000 

' 1 

Disco 

40.000 

4 , 

Disco 

30.000 

6 

Disco 

25.000 

7 

Disco 

20.000 

8 

Cassetta 

35.000 

9 

Cassetta 

» 

30.000 

io. 

Disco 

25.000 

11 

Cassetta 


Per richiedere i programmi in contrassegno, pagando direttamente al postino la cifra Indicata, inviare II seguente tagliando 

Spedire in busta chiusa a Gruppo Editoriale Jackson • Via Rosellini, 12 • 20124 Milano 

- 


Inviatemi i seguenti nastri e/o dischi con i programmi 
pubblicati su P.S. 


GRUPPO EDITORIALE JACKSON 


Cod. 

Cod. 

Cod. 

Cod. 

Cod. 


1 1 

1 1 

1 1 

a L L 

i 

1 

1 1 

1 1 

• Cognome . 

1 1 

1 1 

1 1 

a L. L 

i 

1 

1 1 

1 1 

Nome . 

1 1 

1 1 

1 1 

a L. L 

I 

1 

i I 

| | 


1 | 

1 1 

1 1 

a L. L 

i 

1 

1 1 

1 1 

CAP . 

1 1 

,1 1. 

J 1 

a L. L 

L 

JL 

i i 

1 | 

Città . 


t SPESE POSTALI 

(contributo Asso) L. 3.000 TOTALI L. L 


che pagherò al postino alla consegna del pacco Firma 



















































Ancora sul software 

Ho letto con interesse il Vs. edito¬ 
riale sul n. 25 di Personal Software a 
proposito, appunto, del software. 
Senza dubbio avete toccato vari 
punti importanti del problema e le 
cose che avete detto sono giuste, pe¬ 
rò... 

Però credo che si possano esprimere 
anche altri punti di vista. 

10 penso ad esempio che nessuno 
“pretenda” di avere del software 
gratis. Penso che chiunque, solo che 
abbia un minimo di raziocinio, solo 
che abbia provato a programmare in 
proprio e sappia perciò “di che lacri¬ 
me grondi e di che sangue” il lavoro 
di programmazione, sia disposto a 
concedere che chi ha lavorato abbia 

11 sacrosanto diritto di veder ricono¬ 
sciuto il proprio lavoro. Ma atten¬ 
zione: anche lo scrivere un libro ri¬ 
chiede mesi e mesi di faticoso lavoro 
e se è un libro tecnico richiede spesso 
ampia collaborazione di fotografi, 
disegnatori ecc. 

Chi comprerebbe il libro se esso si 
presentasse in vetrina al prezzo di L. 
495.600 (è il prezzo dell’Apple 
Works Ile, IVA compresa, per e- 
sempio). 

E ce n’è di ben più costosi. 

È chiaro che appena uscito in circo¬ 
lazione il primo, subito comparireb¬ 
bero numerosissime le fotocopie! 

Mettiamoci nei panni del rivendi¬ 
tore. Io non lo sono, ma se lo fossi 
non so proprio come mi comporte¬ 
rei, perché sarà pure disonesto dare 
al cliente un po’ di software scopiaz¬ 
zato e gratuito, ma sarebbe altret¬ 
tanto disonesto rifilargli una mac¬ 
china da due, tre, quattro milioni 
senza un minimo di possibilità ope¬ 
rativa e pretendere che il cliente, in 
aggiunta spenda un altro mucchio di 
soldi per farci qualcosa con quella 
sua macchina. 

Posso esser d’accordo con Voi che se 


una azienda abbisogna di un pro¬ 
gramma speciale lo chieda e se lo 
paghi quanto conviene, cosi come 
pagherebbe e paga in effetti un con¬ 
sulente tecnico di alto livello. Ma 
per tutti gli altri, dagli hobbisti, agli 
studenti, agli insegnanti, che com¬ 
prano con sacrificio il computer, ma 
che non lo usano per far soldi per cui 
la macchina “non si paga da sé”, 
ebbene per questi ha senso mettere 
in vendita il software a prezzi proibi¬ 
tivi? 

Ritorno al mio pensiero: nessuno si 
preoccupa di “proteggere” il pro¬ 
prio libro perché costa un prezzo 
talmente basso che nessuno si pren¬ 
de il disturbo di fotocopiarlo. 

Un altro aspetto della faccenda: 
proprio per non mettere il venditore 
in primis nella irresistibile tentazio¬ 
ne di smerciare software sottoban¬ 
co, perché i costruttori non dotano 
le loro macchine almeno di un buon 
software di base? La Sinclair l’ha 
fatto con il QL. 

Ho la sensazione che i softwaristi i 
guai se li cerchino. 

Voi dite “...le persone che vendo¬ 
no o acquistano software copiato, 
sicuramente stupirebbero molto se 
un libraio offrisse loro la fotocopia 
di un libro piuttosto che una copia 
originale...”, ma io. dico che quegli 
stessi non si stupirebbero più se l’o¬ 
riginale costasse mezzo milione o un 
milione o due milioni. 

Senza contare poi che, mentre fra 
l’originale di un libro e la sua fotoco¬ 
pia, se non c’è una differenza sostan¬ 
ziale c’è almeno una differenza este¬ 
tica per la diversa veste tipografica, 
la copia di un disco non si differen¬ 
zia proprio per niente dall’originale, 
a parte forse l’etichetta. O ci sono 
dischetti rilegati in pelle e dischetti in 
brossura? 

L’errore di fondo non starà forse nel 
atto che la comparsa del computer 


ha suggerito la nascita di un nuovo 
mestiere che, forse, mestiere non è: 
quello del softwarista? 

C’è sicuramente in giro qualche cer¬ 
vellone che pretende di viverci di 
rendita con questo mestiere. Tempo 
verrà che anche i softwaristi si rasse¬ 
gneranno, come i poeti, cervelloni 
anch’essi, che “carmina non dant 
panem”. 

Certo che per il rivenditore è consi¬ 
derato un fastidio vendere il softwa¬ 
re; il rivenditore ha già i guai suoi 
per dimostrare che dopo tutto sei 
milioni per una macchina sono giu¬ 
stificabilissimi, e per dimostrare che 
tale macchina può fare dieci volte di 
più e di meglio di quel che fa un C 64. 
Specialmente se il cliente ci vuol 
guardare dentro e si rende conto 
che...c’è appena il doppio di roba o 
tutt’al più tre volte tanto. 

Discorso ozioso? Voi come rivista 
tecnica sareste in grado di dimostra¬ 
re che l’Apple Ile vale più del doppio 
del complesso C 64 più drive 1541? E 
non parlo di quantità di componen¬ 
ti, che doppia non è, ma soltanto di 
capacità operativa. Cosa fa l’Apple 
Ile che il C 64 non possa fare? Ha il 
doppio di memoria (apparentemen¬ 
te), ma doppia memoria vuol dire, 
tout court, doppio prezzo, più 
un’aggiunta? 

Si potrebbe continuare e ce ne sareb¬ 
be da dire. 

Perdonatemi se ho voluto mettere il 
becco in queste faccende, ma la pro¬ 
vocazione è venuta da Voi, dopo tut¬ 
to. 

Franco Braga 
Treviglio (BG) 


Ritorniamo volentieri sull’argo¬ 
mento software, sia per chiarire me¬ 
glio il nostro pensiero e sia perchè ci 
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sembra doveroso rispondere al Sig. 
Braga deI quale avevamo già ospitato 
una lettera nel numero 20 
(Agosto!Settembre 84) di Personal 
Software e che ci segue con una co¬ 
stanza di cui gli siamo grati. 
L'opinione del Sig. Braga è evidente¬ 
mente (e giustamente) quella dell'u¬ 
tente finale, quindi di chi in definitiva 
deve sborsare grosse cifre per procu¬ 
rarsi del software. Eppure non capia¬ 
mo come prima affermi che chi pro¬ 
gramma ha il diritto di vedere ricono¬ 
sciuto il proprio lavoro e poche righe 
dopo disconosca addirittura la figura 
del programmatore, definendolo un 
cervellone che vuol vivere di rendita. 
Noi che siamo un po’ programmatori 
e un po ’ acquirenti di software, rite¬ 
niamo che chi programma lavora, e 
quindi abbia diritto a un giusto coni- 


Po 


OSTA 


penso: ne più e ne meno. 

Il problema, in realtà viene dopo: 
se i costi di realizzazione del prodotto 
software possono essere suddivisi su 
un numero elevato di vendite, allora è 
giusto attendersi un prezzo di vendita 
estremamente basso. Ma se, come 
purtroppo spesso accade per effetto 
delle copie, il numero di vendite rego¬ 
lari è basso allora il prezzo di vendita 
aumenta notevolmente. 

Siamo comunque d’accordo con lei 
che la politica vincente per tulli è si¬ 
curamente quella di produrre softwa¬ 
re applicativo da vendere a basso co¬ 
sto, e il mercato sembra attualmente 
orientato in questa direzione. 

Anche la sua osservazione sul fatto di 
vendere sistemi completi di una dota¬ 
zione di base di software ci trova d'ac¬ 
cordo, anche se nel caso di home com¬ 


puter non sempre iprogrammi propo¬ 
sti sono quelli effettivamente deside¬ 
rati dall'utente. Per quanto riguarda 
il parallelo libro-programma ci sem¬ 
bra che i termini in questione siano 
difficilmente paragonabili: sia perché 
i tempi di realizzazione sono diversi e 
sia per il differente livello di diffusio¬ 
ne. In ogni caso non bisogna dimenti¬ 
care che oltre ai libri in edizione eco¬ 
nomica, esistono anche quelli che co¬ 
stano come un buon programma! 

Quanto al confronto finale tra C 64 
e Apple Ile riteniamo che doppio di 
prezzo non significhi semplicemente 
doppio di prestazioni. Altrimenti un 
mainframe IBM dovrebbe essere in 
grado di pensare da solo data la diffe¬ 
renza di prezzo con Apple e una Fer¬ 
rari di volare se paragonata ad una 
Fiat 126! 



TROVERETE 
NEL PROSSIMO 
NUMERO 


Nuovo 

TORNEO 
DI BRIDGE 
CON L'APPLE 

Musica 
con UN MSX 

Super 

SPREADSHEET 
PER C 16 


Quoziente 

INTELLIGENZA 

PERSPECTRUM 

Ram TEST 
PER C 64 

Routine 2 

PERSPECTRUM 

I chiNg 

PER TI 99/4A 


m 

EODC©[U\ 

DAL 

s 

IIAOOOO 


Progetto 

AEROMODELLO 

CON 

LO SPECTRUM 

Monitor 

PER C 64 

Tasti 

FUNZIONE 

PERSPECTRUM 
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Mouse ottico dalla Shugart 


La Corporation, ben introdotta nel 
settore dei drive per micro e mini- 
floppy, ha deciso di aggredire anche 
il mercato delle appendici “manua¬ 
li”, offrendo agli OEM un mouse 
ottico. Si tratta di una scatoletta po¬ 
co più grande del palmo di una ma¬ 
no, utilizzata per posizionare il cur¬ 
sore sullo schermo in un microsiste¬ 
ma per scegliere funzioni, eseguire 
programmi e tracciare linee, reso fa¬ 
moso dall’uso privilegiato in alcune 
workstation avanzate e giunto al 
volgo con l’introduzione (ed il suc¬ 
cesso!) del Macintosh Apple. E’ un 
apparecchio ottico, e offre pertanto 
alcuni vantaggi rispetto ad analoghi 
dispositivi meccanici. Non ha parti 
in movimento e quindi non necessita 
di manutenzione e pulizia periodica; 
è più leggero e silenzioso delle unità 
meccaniche; non avendo specchietti 
interni da mettere a punto, questo 



mouse ottico Shugart può essere 
perfino più affidabile di altri prodot¬ 
ti similari. Le previsioni parlano 
chiaro: nel 1985 il mercato dei mou¬ 
se sfiorerà i due milioni di unità; 
questo ne spiega l’interesse da parte 
di una casa già molto nota per altri 
prodotti. I modelli disponibili di¬ 


spongono di due o tre bottoni ridefi¬ 
nibili dall’utente; per utilizzarli è ne¬ 
cessario disporre sul tavolo una ta¬ 
voletta di carta di riferimento (8 1/2 
per 12 pollici) per il sistema di rileva¬ 
mento del movimento, basato su un 
circuito appositamente realizzato e 
innescato da tre LED. Il mouse può 
essere mosso con una velocità di 25 
pollici al secondo ed ha una “risolu¬ 
zione” di 200 impulsi per pollice. E’ 
fornito di interfaccia seriale, paralle¬ 
la o RS-232C. 

Shugart Corporation 
475 Dakmead Parkway 
Sunnywale, CA 94086 
Tel. 408-7374355 


Logo in italiano 
dalla Commodore 


Realizzata congiuntamente dalla 
Commodore Italiana e dalle Edizio¬ 
ni Elettroniche VIFI della Monda- 
dori, con la supervisione di Giovan¬ 
ni Lariccia, ricercatore del CNR, la 
versione italiana di Logo per il C 64 
viene distribuita su disco con una 
libreria di programmi ed un manua¬ 
le in italiano, per 145.000 lire più 
IVA. Su Logo è stato impostato 
l’impegno didattico sulla program¬ 
mazione all’intemo dei progetti 
scuola varati da Commodore per 
l’anno scolastico che sta ormai vol¬ 
gendo al termine. Lucas e 100 scuole 
si stanno avviando a concludere il 
periodo di sperimentazióne didatti¬ 
ca nell’area della scuola dell’obbli- 
go. Il primo progetto ha coinvolto 
11 scuole elementari e medie di Mi¬ 
lano e Provincia che sono state dota¬ 
te di un laboratorio composto da 10 
C 64 con 10 monitor a colori, 3 stam¬ 
panti e 3 lettori di floppy disk, oltre a 



cassette vergini e a software didatti¬ 
co: il già citato Logo ed altri sussidi 
per facilitare l’apprendimento del 
linguaggio BASIC. Gli obiettivi? In¬ 
segnare la programmazione struttu¬ 
rata in modo graduale, presentando 
piccoli programmi interattivi per far 
apprendere ai giovani un metodo di 
lavoro di validità generale, più che 
un singolo linguaggio di program¬ 
mazione. Questo metodo, fondato 
sulla scomposizione di un problema 
in tanti piccoli sottoproblemi, è par¬ 
so molto adeguato, sia dal punto di 
vista informatico, sia rispetto allo 
sviluppo generale della capacità di 
ragionare in modo sistematico. Il 
gruppo di coordinamento del pro¬ 
getto Lucas, sugli esiti del quale tor¬ 
neremo a sperimentazione conclusa, 
ritiene che l’insegnamento di questo 
metodo logico-analitico si inserisca 
a buon diritto nei programmi della 
scuola dell’obbligo per preparare i 
giovani ad affrontare con gli ede- 
guati strumenti una società domina¬ 
ta dalla tecnologia. Scopo principale 
di questa nuova alfabetizzazione è 
rendere la persona cosciente dei pro¬ 
cessi che si svolgono dietro ad uno 
schermo o che guidano un robot, per 
non rinunciare agli spazi propri del¬ 
la libera creatività e fantasia dell’uo¬ 
mo. Nella stessa logica, con mezzi 
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ridotti rispetto a Lucas, si muove il 
progetto 100 scuole, che ha coinvol¬ 
to altrettanti istituti di tutta Italia 
con l’obiettivo di iniziare gli alunni 
alla logica della programmazione u- 
sando la versione italiana di Logo 
alle elementari ed il BASIC nelle me¬ 
die. 1 due progetti vengono seguiti 
da consulenti esperti nelle diverse 
materie e applicazioni. Tornando al¬ 
la versione italiana di Logo, ci pre¬ 
me sottolineare, prima di conclude¬ 
re, che il lavoro svolto non è stato di 
mera traduzione, ma ha coinvolto 
anche aspetti di adattamento e revi¬ 
sione dell’interprete Logo su disco, 
delle sue varie procedure, dei pro¬ 
grammi di utilità e degli esempi di¬ 
stribuiti sui due dischetti. Questi, ed 
il manuale, sono stati rielaborati e 
controllati da esperti di informatica 
applicata alla didattica e messi alla 
prova in ambienti didattici tradizio¬ 
nali, coinvolgendo scuole e docenti, 
per verificarne sul campo la reale 
validità. 

Commodore Italiana S.p.A. 

Via F.lli Gracchi, 48 
20092 Cinisello Balsamo (MI) 

Tel. 02-618321 


Reclute e informatica 


Perché non approffittare del tempo 
delle libere uscite per imparare o ap¬ 
profondire qualcosa di utile, anziché 
vagare smarriti per una città stranie¬ 
ra? Tempo Reale, centro di cultura 
informatica della Magic Bus S.c.r.l. 
ha dato il via ad un’iniziativa rivolta 
ai militari di leva del Presidio bolo¬ 
gnese. Per loro è infatti possibile i- 
scriversi ad uno dei corsi organizzati 
da Tempo Reale beneficiando di u- 
no sconto che si ottiene presentando 
alla segreteria il proprio tesserino 
militare. Gli argomenti? BASIC a 
vari livelli, programmi applicativi, 
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grafica, musica, Logo. La stimolan¬ 
te iniziativa, che rientra nelle attività 
di diffusione della cultura informati¬ 
ca svolte dal Commodore Computer 
Center Tempo Reale, potrà presto 
essere allargata ad altre città, grazie 
all’apertura di centri gemelli in di¬ 
verse parti d’Italia. 

Tempo Reale 
Via Cenlotrecento, Il A 
40/26 Bologna 
Tel. 051-270701 


J .soft: nuovo distributore 
dei prodotti Lotus 


Windsor , UK-Marzo. 

Lotus Development European Cor¬ 
poration, filiale europea della notis¬ 
sima software house statunitense, 
annuncia la nomina del proprio 
nuovo distributore italiano: J.soft di 
Milano. 

“Man mano che anche in Italia si 
sviluppa un immenso potenziale di 
crescita del mercato del software 
standard per personal computer - 
commenta David Me Donald, re¬ 
sponsabile Lotus per la distribuzio¬ 
ne in Europa - è assolutamente fon¬ 
damentale che noi ci prepariamo a 
supportarlo in modo adeguato. La 
nomina di un distributore forte e 
professionalizzato è un elemento- 
chiave e noi riteniamo che J .solì of¬ 
fra in pieno l’altissimo standard che 
noi richiediamo a un distributore 


nazionale dei nostri prodotti. Siamo 
sicuri che la collaborazione con 
J.soft potrà tradursi in un ottimo 
livello di servizio e supporto sia per i 
dealer sia per gli utenti finali”. 

J.soft distribuirà, inizialmente, at¬ 
traverso la propria rete di 11 agenti 
mi tutto il territorio nazionale, i pro¬ 
dotti di punta per l’IBM PC e com¬ 
patibili, come il Lotus 1-2-3, che esce 
in questi giorno con un manuale in 
Italiano, e Symphony, che entro bre¬ 
vissimo tempo sarà disponibile in 
versione totalmente nazionalizzata. 
Entro la fine di Aprile a tali prodotti 
si aggiungerà Jazz, il nuovo integra¬ 
to Lotus per Apple Macintosh. 
J.soft installerà una hot-line telefo¬ 
nica specificatamente dedicata agli 
utenti Lotus (in aggiunta, quindi, a 
quella già esistente dedicata a tutti 
gli altri prodotti J.soft) e sarà in gra¬ 
do di offrire un programma comple¬ 
to di training e supporto a tutti i 
dealer autorizzati Lotus. 

“Con l’aggiunta dei prodotti Lotus - 
commenta soddisfatto Giorgio Boz- 
zini, consigliere delegato J\Soft- rite¬ 
niamo che il nostro portafoglio pro¬ 
dotti possa dirsi veramente all’altez¬ 
za di un mercato che anche nel no¬ 
stro Paese sta raggiungendo, a tempi 
stretti, dimensioni e professionalità 
al passo con gli altri paesi europei”. 

J.soft 

V.lc Restelli, 5 

20124 Milano 

Tel. 02-683797/6888228 


Plotter low cost 
da San Marino 


Un’azienda, della più antica repub¬ 
blica del mondo, affronta, affianca¬ 
ta dall’esperienza giapponese, il 
mercato delle periferiche. Si tratta 
dell’ACS (Advance Computer Si- 
stem) che presenta il plotter stam¬ 
pante PS/80, capace di 4 colori e 
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ottanta colonne per fogli singoli o 
rulli in formato massimo A4. 
Questo plotter, assicurano all’ACS, 
è tra i più economici nella sua fascia 
di prestazioni. Il PS/80 può scrivere 
su qualunque tipo di carta o carton¬ 
cino disegni e caratteri variabili in 
altezza da 2 a 13 mm; con pennini 
speciali è possibile lasciare tracce an¬ 
che su pellicola. Le istruzioni grafi¬ 
che sono 13 e le interfacce previste 
sono la Centronics (di serie) o la op¬ 
zionale RS-232. Assistenza e ricam¬ 
bi vengono garantiti direttamente 
dall’ACS. 

Graf 

Via Lagrangia, 6 

47037 Rimini - Bell ariva (FO) 

Tel. 0541-33419 


Tecnologie educative 
a convegno 


Il nostro paese ha ospitato a Bolo¬ 
gna i lavori della sessione 1985 del 
progetto ANTEM. Questo pro¬ 
gramma, la cui sigla sta per Applica¬ 
tions des Nouvelles Technologies E- 
ducatives Multimedia, è uno dei 18 
previsti all’interno del gruppo Tcc- 
hnologie Croissance Enmploi 
(TCE), istituito al vertice di Versail¬ 
les del 1982 tra i sette paesi più indu¬ 
strializzati. Francia e Canada parte¬ 
cipano ad ANTEM in qualità di 
paesi piloti, mentre Italia, Inghilter¬ 
ra e Comunità Europee sono asso¬ 
ciati a questo progetto che intende 
promuovere la collaborazione inter¬ 
nazionale per lo sviluppo e la diffu¬ 
sione delle nuove tecnologie applica¬ 
te alla didattica. L’iniziativa, che ha 
visto l’adesione di quattro ministeri, 
di ricercatori universitari interna¬ 
zionali e di numerosi esperti di infor¬ 
matica applicata alla didattica, si è 
svolta a Bologna il 30 e 31 Gennaio 
ed il primo Febbraio, ed è stata pro¬ 
mossa da enti quali il CNR ITD, lo 
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CSATA, Dioikema che ne ha curato 
la segreteria, l’ENEA, l’IRRSAE e 
l’Istituto di Cibernetica dell’Univer¬ 
sità di Milano. 

Dioikema 
Lorena Nanni 
Via S. Stefano, 16 
40125 Bologna 
Tel. 051-556475 



Per gli appassionati di questo gioco 
riportiamo l’appello lanciato all’ul¬ 
timo campionato mondiale tenutosi 
a Melbourne verso la fine del 1984. 
L’associazione giapponese dei gio¬ 
catori di Othello ha in animo di pub¬ 
blicare un volume che riporti tutte le 
notizie relative al gioco ed alle sue 
realizzazioni su microcomputer. Se 
avete sviluppato qualcosa che meri¬ 
ta di essere segnalato, scrivete all’in¬ 
dirizzo sotto riportato, spiegando i 
criteri che vi hanno guidato nella 
realizzazione. 

Ko/iko Kuniecia 

Suginami - Ku Ogikubo 3-45-8 

Tokyo - Japan 



Dalla Francia segnaliamo una pub¬ 
blicazione periodica rivolta ai patiti 
delle calcolatrici portatili program¬ 
mabili, ed in particolare ai possesso¬ 
ri dei modelli HP nelle diverse varia¬ 
zioni (41, 75, 71, 1X), nonché ai cul¬ 
tori del Forth. Si tratta di Micro 
Revue, un bimestrale curato dal 
club de Programmation Personelle 
sur Calculatrice de Toulouse (PPC- 
T) che presenta giochi, programmi, 
piccoli progetti hardware dedicati al 


mondo dell’informatica portatile. 
Poiché nel nostro paese si riscontra 
la mancanza quasi assoluta di lette¬ 
ratura in questo settore, riportiamo 
l’indirizzo del Club, segnalando che 
l’abbonamento costa 250 franchi 
francesi per 6 numeri inviati per po¬ 
sta aerea, mentre il singolo fascicolo 
costa 50 franchi. 

Micro-Revue 
PPC-T 

77 Rue de Cagire 
31100 Toulouse 
France 



Proseguendo nella rassegna delle i- 
niziative che legano informatica e 
didattica, sempre più frequenti in 
questo periodo, segnaliamo la rea¬ 
lizzazione di un’aula dall’impegnati¬ 
va denominazione di “multimedia¬ 
le” realizzata presso la scuola media 
Carmelita Manara di Milano dalla 
cooperativa II Dialogo. Questo la¬ 
boratorio permanente, realizzato 
all’interno di una struttura scolasti¬ 
ca esistente, dispone di nove compu¬ 
ter Commodore, un videoproiettore 
da 45 pollici, un videoregistratore ed 
una lavagna luminosa con schermo. 
Completano la dotazione program¬ 
mi didattici e videocassette relativi 
alle diverse materie trattate. Le fun¬ 
zioni dell’aula sono molteplici: è 
possibile usarla come videoteca di¬ 
dattica, per ospitare corsi di intro¬ 
duzione all’informatica, come labo¬ 
ratorio per la creazione di audiovisi¬ 
vi su videocassetta corredati di titoli 
elettronici e immagini generate da 
programmi appositi. 

Il Dialogo S.c.r.l. 

Viale Molise, 5 
20137 Milano 
Tel. 02-5460880 
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Routine 




in linguaggio macchina 




Speciale per utenti ZX81 


di Carlo Cappelli 

N el lontano numero 18 di 
Personal Software, ci sia¬ 
mo addentrati nell’affa¬ 
scinante mondo della programma¬ 
zione in linguaggio macchina; vedia¬ 
mo ora come integrare linguaggio 
macchina e BASIC per una maggio¬ 
re possibilità di utilizzo delle routine 
fino ad ora presentate. Per incomin¬ 
ciare, vogliamo proporvi una inte¬ 
ressante applicazione della routine 
per le animazioni, presentata nel nu¬ 
mero già citato di Personal Softwa¬ 
re; lo scopo che ci siamo proposti, è 
quello di memorizzare i grafici di 
funzioni matematiche e poi alternar¬ 
li velocemente sul video ottenendo 
animazioni incredibili. Per realizza¬ 
re ciò bisogna innanzitutto caricare 
in memoria le routine precedente- 
mente citate, costituite da una prima 
Rem con il programma per l’invio 
dei fotogrammi sullo schermo, e da 


una seconda Rem con il programma 
per gestire i vari fotogrammi. 

Si devono apportare delle modifiche 
eseguendo delle Poke: 

POKE 16633,198 
POKE 16637,35 
POKE 16638,35 
POKE 16639,35 

La necessità di queste modifiche è 
dovuta al fatto che non utilizziamo 
più una normale stringa A$ come in 
precedenza, bensi sfruttiamo una 
stringa A$ inizialmente dimensiona¬ 
ta; questa operazione iniziale è ne¬ 
cessaria per preparare quella parte 
di memoria nella quale inserire i vari 
grafici. 

A causa di questo dimensionamen¬ 
to, il codice di A$ non è più 70 ma 
198, e varia anche la posizione dei 
dati riguardanti la lunghezza della 
stringa stessa che si trova tre byte 
più avanti. (Si notino a questo pro¬ 
posito le tre istruzioni Ine HI che 
vengono inserite dalla locazione 
16637). 

Fatta questa operazione, bisogna 
inserire il listato 1 che contiene un 
programma in BASIC per tracciare 


il grafico delle funzioni e alcune i- 
struzioni per inizializzare le routine 
in linguaggio macchina. Le prime 
Poke servono per definire le dimen¬ 
sioni dell’immagine che deve essere 
contenuta nelle prime 21 linee e nelle 
prime 31 colonne, si tralasciano, 
quindi, l’ultima linea e l’ultima co¬ 
lonna dello schermo. 

Al primo input bisogna inserire il 
numero di immagini che si desidera 
comporre; a questo proposito fac¬ 
ciamo notare che con 16 Kbyte si 
possono inserire fino a 21 immagini 
(ogni immagine occupa 651 byte). 
Al secondo e terzo input dobbiamo 
inserire il centro degli assi, in riferi¬ 
mento ai quali verrà tracciato il gra¬ 
fico della funzione. 

Per posizionarlo, al centro dello 
schermo, bisogna assegnare il valore 
30 alla X e 20 alla Y; se invece lo si 
vuol lasciare nell’angolo in basso, a 
sinistra, basta dare il valore 0 sia alla 
X che alla Y. 

Il quarto input richiede l’inseri¬ 
mento di un coefficente che rappre¬ 
senta il grado di ingrandimento del¬ 
l’immagine; il valore da inserire va 
da uno a quattro; oltre non è consi- 


Listato 1. Programma per realizzare l’animazione 
di funzioni; traccia il grafico delle funzioni e le 
alterna velocemente sullo schermo. 

L REM 34* E£RND7- U«RND",*5i ; 
Zwcfih -fcfiND?, FQR U |PNDMV?ND5IN 
-,5 ^ ,r - GOSUB B “H-5T 5TR$ ?Y 

5- -PkJnT fi'; POR LPPINT USRNOX 

105 M%RN£>/ STOP .. 

5 REM ElRMD- ??5 , ( CLEflR «“ 

-OR 5 ?; ( CLERP POR M ( INKEY$E( 

•: RETURN ?C=IS4. LET 7SÉpNDTRN 

'M-RNDTRN "LN «RNDSBPNDU ( INKEY* 
RSN PEEK RNDM ( INKEY*TRN ....... 

tiaiaiiritatit* 

aiaitiiiiliiaiiiifaiiiiif ijpiti* 

' 10. ’ REM ' fiN ÌMRZIONI DI PUNÌIONI 
20 POKE 15515,31 
30 ’POKE 16517,21 
40 POKE 15514,0 
•50 POKE 15515,0 


50 

P RI NT “ N U M E R 0 IM M fi GINI ? " ; 

70 

INPUT N 

7R 

POKE 15509 N 

30 

PRINT N 


LET fi * = " 11 

34 

GOTO 30 

pcz 

r h5T 

35 

,“OR P = 1 TO N4-600 

S7 

LcT fi$=fi$J-‘ " 

33 

NEXT P 

39 

SLOy 

30 

LET P=1 

100 

PRINT 

110 

PRINT 1 INSERISCI IL CENTRO 

DE GL 

I fissi 

120 

PRINT “PRIMO Lfi X “ 

■'•ISO 

INPUT CX 

140 

PRINT CX 

130 

PRINT ORfi Lfi Y ; 

160 

INPUT CY 

- 1 70 

PRINT CY 

130 

PRINT "INSERISCI IL COEFFIC 
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ENTE 

DI IN GRANDINENT0 Dfi 1 P 4 

190 

INPUT G 


CLS 

210 

PRINT "INSERISCI LP FUNZION 

E IN 

X" 


INPUT X$ 

230 

CLS 

24-0 

LET Xls-CX/6 

250 

LET X2=(50-CXJ/G 

270 

FOR X = X1 TO X2 STEP .47/G 

230 

LET Y-URL X$ 

290 

i_ET I=X*G+CX 

300 

LET Y=Y*G+CY 

310 

IF- Y >40 OR '( <0 THEN GOTO 33 

0 

320 

PLOT I,Y‘ 

330 

NEXT X- _ ___ 

34-0 

LE~ DF = 1+PEEK 16395+25&*PEE 

K 15397 

345 

FRST 


350 

FOR J=0‘TO 20 


350 

FOR K=0 to 30 


? 70 
3 *r K ; 

LET Ps=fl$+0HR$ PEEK 

(DFtJtS 

330 

NEXT K 


320 

NEXT J 


•;g=: 

3L0U 


400 

LET P=P+i 


410 

IF P =N-1 THEN GOTO 

450 

420 

PRINT str 20-0: "VUOI 

CRMBIflR 

E I 

SfiRRMETRI” 


430 

INPUT X $ 


435 

CLS 


440 

IF X$="S” OR X$="SI 

THEN G 

OTO 

100 ’ 


450 

GOTO 210 


450 

RPND USR 15595 


470 

RRND USR 15657 


430 

FOR U = 1 TO' 4 


490 

NEXT Lì 


500 

GOTO 470. 



gliabile. Se si inserisce ad esempio il 
valore uno, la funzione viene studia¬ 
ta in un intervallo di 60 unità, se si 
inserisce 3 essa viene studiata in un 
intervallo di 20 unità. In particolare, 
se al coefficiente di ingrandimento è 
stato dato il valore di 3 e il centro 
degli assi è posizionato in 30,20, la 
funzione verrà analizzata da -—10 a 
10 e i valori della Y potranno andare 
da —6.6 a 6.6. È opportuno rendersi 
conto di questi valori per poter posi¬ 
zionare nel migliore dei modi le fun¬ 
zioni scelte. 

Le regole matematiche che indivi¬ 
duano gli estremi entro i quali viene 
tracciata la funzione, sono le se¬ 
guenti: 

X minima = —CX/G 
X massima = (60-CX)/G 

Y minima = —CY/G 

Y massima = (40-CY)/G. 

CX e CY rappresentano le coordi¬ 
nate del centro, mentre G esprime il 
coeffi ciente di ingrandimento. Al 
quinto input bisogna inserire la fun¬ 
zione in X ricordando che si deve 
scrivere solo la parte contenente la 
X. Ad esempio la funzione Y uguale 
X*X deve essere inserita come X*X 


tralasciando /Y = ”. Nel caso di fun¬ 
zioni che scendono rapidamente, 
per ridurre la discontinui tà del trac¬ 
ciato, conviene ridurre il valore dello 
Step della linea 270. 

Vediamo ora cosa si può realizza¬ 
re con questo programma ponendo 
il centro degli assi AN (30,20)eG = 
1. Possiamo ad esempio rappresen¬ 
tare il movimento delle ali di un uc¬ 
cello inserendo varie parabole con 
aperture differenti; provate ad inse¬ 
rire queste 6 funzioni: X*X/40, 
X+X/72, -X*X /100, -X*X/64, - 
X*X/120, X*X/64. È meglio usa re 
X*X che non Xf2 (dove t rappresen¬ 
ta l’elev amento a potenza), poiché, 
come su molti calcolatori, quest’ulti- 
ma scrittura non accetta per la X 
valori negativi. Questo discorso vale 
per tutti gli elevamenti a potenza, 
non solo per i quadrati. 

Se volete stilizzare il movimento di 
un’elica inserite queste 4 funzioni: 
Abs X *X/10, Abs X*X/64, -Sgn X* 
Sqr Abs(X* 4), -Sgn X* Sqr Abs 
(X*40). Potete provare a digitare 4 
vo Ite la funzione X* Sin X* inizial¬ 
mente con G = 2 poi con G = 3, G 
= 4 e infine ancora con G = 3; per 
modificare il coefficiente G, dovrete 


aspettare fino a che il programma 
non vi chieda se volete cambiare i 
parametri; a questa domanda ri¬ 
spondete di sì, dopo di che, dovrete 
reinserire il centro de gli assi e dare il 
nuovo valore di G. Cosi facendo, 
otterrete un progressivo ing randi- 
mento e rimpicciolimento della fun¬ 
zione dall’effetto molto suggestivo. 

Il programma successivo serve per 
realizzare un linguaggio grafico si¬ 
mile per alcuni aspetti al Logo; con 
esso, possiamo comporre facilmente 
disegni, memorizzarli e richiamarli 
quando vogliamo. 

Il principio di funzionamento è 
semplice; si deve stabilire il punto di 
partenza, da lì, con degli spostamen¬ 
ti in otto direzioni, si dovrà compor¬ 
re l’immagine. Abbiamo a disposi¬ 
zione una tartaruga immaginaria 
che, muovendosi, lascia una traccia 
sullo schermo; il percorso che la no¬ 
stra tartaruga descrive, corrisponde 
all’insieme di istruzioni che le abbia¬ 
mo dato. Queste istruzioni devono 
essere contenute in una stringa cosi 
le possiamo salvare su cassetta e sal¬ 
vare con esse il disegno che rappre¬ 
sentano. A questo scopo utilizziamo 
la stringa A$ che non deve contenere 
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Routine 
in linguaggio 
.macchina. 


Figura 1. Istruzioni in linguaggio macchina con 
relativi codichdecimali del programma per realizza¬ 
re un linguaggio grafico. 


ADDA.A 
ADDA.A 
ADDA.A 
ADD A.C 
ADD A.C 
ADD A D 
LD E.A 
INC HL 
JR 2 
LDE.C 
INC B 
PUSH HL 


135 

135 

135 

129 

129 

130 
95 
35 
24 2 
89 
4 

229 






LD A.(16517) 

58 133 64 

16514 

— 

0 


CP 40 

254 40 


_ 

0 


JRNZ 7 

32 7 


_ 

0 


LD HL.I65I6 

33 132 64 


— 

0 


LD (HL).I 

51 1 

16518 

POP HL 

225 


JR 107 

24 107 

16519 

LD A.20 

62 20 


CP 53 

254 53 


LD (16384). A 

50 0 64 


JRNZ 7 

32 7 


RET 

201 


LD HL.16516 

33 132 64 

16525 

LDHL. (16438) 

42 54 64 


LD (HL).O 

54 0 


LD (L65I4).HL 

34 130 64 


JR 96 

24 96 


LD A.O 

62 0 


LDHL.O 

33 0 0 


LD (16516).A 

50 132 64 


CP 38 

254 38 


LDHL. (16400) 

42 16 64 


JRNZ 2 

32 2 


LD A.H 

124 


LD L.36 

46 36 


CP 125 

254 125 


CP 39 

254 39 


JRZ—24 

40 231 


JRNZ 2 

32 2 


LD A.(HL) 

126 


LD L.37 

46 37 


CP 70 

254 70 


CP4I 

254 41 


INC HL 

35 


JRNZ 3 

32 3 


JRNZ—10 

32 245 


LDHL. 11264 

33 0 44 


LD A.(HL) 

126 


CP 56 

254 56 

16551 

CPO 

254 0 


JRNZ 3 

32 3 


JR NZ—10 

32 245 


LDHL. 11520 

33 0 45 


INC HL 

35 


CP 54 

254 54 


INC HL 

35 


JRNZ 3 

32 3 

16557 

LD A. (16552) 

58 168 64 


LD HL. 11300 

33 36 44 


LD B.A 

71 


CP 60 

254 60 


LD A.(HL) 

126 


JRNZ 3 

32 3 

16562 

CP 38 

254 38 


LD HL.9516 

33 44 37 


JR C —46 

56 209 


CP 42 

254 42 


LD C. 128 

14 128 


JRNZ 3 

32 3 


CP 127 

254 127 


LD HL. 11557 

33 37 45 


JR C 4 

56 4 


CP 55 

254 55 


LD C.64 

1464 


JRNZ 3 

32 3 


SUB 128 

214 128 


LD HL.9261 

33 45 36 


LD E.l 

30 1 


LD (16720).HL 

34 80 65 


LD (16517).A 

50 133 64 


LDC.E 

75 


LD A.C 

121 


LD HL.( 16514) 

42 130 64 


LD (16803).A 

50 163 65 

16720 

NOP 

0 


INC HL 

35 


NOP 

0 


DEC B 

5 


LD A.H 

124 


JRZ 40 

4040 


CP 44 

254 44 


LDA.(HL) 

126 


JP NC 16518 

210 134 64 


CP 38 

254 38 


LD A.L 

125 


J.R NC 35 

48 35 


CP 64 

254 64 


CP 29 

254 29 


JP NC 16518 

210 134 64 


JPC 16519 

218 135 64 


LD A.( 16516) 

58 132 64 


SUB 28 

214 28 


LD (165I4).HL 

34 130 64 


LDC.A 

79 


CP 1 

254 1 


INC HL 

35 


JRZ 5 

40 5 


DEC C 

5 


PUSH BC 

197 


JR Z22 

40 22 


CALL 16804 

205 164 65 


LD A.(HL) 

126 


POP BC 

193 


CP 38 

254 38 


DEC C 

13 


JR NC 17 

48 17 ' 


JRNZ—34 

32 221 


SUB 28 

214 28 


POP HL 

225 


JPC 16519 

218 135 64 


DEC B 

5 


LDD.A 

87 


JP NZ 16561 

194 177 64 


LD A.C 

121 

16757 

RET 

201 


14 












tartaruga lascerà una traccia bianca 
da abbinarsi con lo sfondo annerito. 
Abbiamo ancora due istruzioni da 
chiarire: la prima è C, con questo 
comando la tartaruga non lascia al¬ 
cuna traccia dei suoi spostamenti; 
mentre con il comando P la nostra 
bestiola ricomincia a lasciare la sua 
traccia. Passiamo ora a descrivere la 
realizzazione del programma in lin¬ 
guaggio macchina; per far ciò, oc¬ 
corre caricare in memoria il pro¬ 
gramma del Draw veloce (quello 
con 1 Rem...e 5 Rem...) presentato 
nella prima parte di questa rassegna 
di routine in Assembly. 

In questo programma sfruttere¬ 
mo interamente la 5 Rem mentre 
modificheremo sostanzialmente la I 
Rem. 

Per inserire i codici usufruiamo della 
solita routine di caricamento con 10 
Let A = 16514; i codici da introdur- 


chiamata alla routine di plottaggio 
di 5 Rem. 

Per rendere operativo il program¬ 
ma, è necessario inserire la lunghez¬ 
za della stringa A$ con Poke 16552, 
Len AS; poi eseguire la routine con 
Rand USR 16525. 

Per rendervi conto del funziona¬ 
mento, provate ad inserire le istru¬ 
zioni BASIC del listato 2. Per sfrut¬ 
tare al meglio questo linguaggio gra¬ 
fico provate i tre programmi del li¬ 
stato 3 (per attivare il secondo fare 
Goto 100, mentre per il terzo Goto 
150). 

Le possibilità applicative sono mol¬ 
te, basta sbizzarrire la fantasia e an¬ 
che con un piccolo ZX81 si possono 
fare cose grandi (vedi figura 2). 
Prendiamo ora in considerazione un 
altro argomento; vediamo come im¬ 
plementare alcuni principi di intelli¬ 
genza artificiale nella programma- 


più di 255 caratteri; tale valore corri¬ 
sponde a circa 150 istruzioni. A que¬ 
sto punto analizziamo le istruzioni a 
disposizione. 

A - La tartaruga si sposta verso l’al¬ 
to rispetto al punto in cui si trovava 
prima; la lettera può essere seguita 
da un numero di una o due cifre che 
rappresentano il numero di caselle 
che la tartaruga deve percorrere; nel 
caso mancasse il numero, si sposta 
di una sola casella. 

B - Come prima, però lo spostamen¬ 
to avviene verso il basso. 

D - Come prima, però lo spostamen¬ 
to avviene verso destra. 

S - Come prima, però lo spostamen¬ 
to avviene verso sinistra. 

Q - Come prima, però lo spostamen¬ 
to avviene verso nord-est. 

W - Come prima, però lo sposta¬ 
mento avviene verso sud-est. 

E - Come prima, però lo spostamen¬ 
to avviene verso sud-ovest. 

R - Come prima, però lo spostamen¬ 
to avviene verso nord-ovest. 
Possiamo ad esempio scrivere A$ = 
“A3BDDB15R7”, con questa se¬ 
quenza di istruzioni la nostra tarta¬ 
ruga andrà in alto di tre caselle poi in 
basso di una, a destra di una, a de¬ 
stra di una ancora, in basso di 15 e 
infine a nord-ovest di 7. I valori da 
dare agli spostamenti devono essere 
tali da non fare uscire dallo schermo 
la tartaruga, altrimenti il program¬ 
ma si fermerà con errore l. Le lettere 
A,B,D,... possono essere scritte an¬ 
che in campo inverso, in tal caso, la 


re sono quelli di figura 1. 

La prima parte della routine serve a 
rintracciare la stringa A$; dalla loca¬ 
zione 16557 si incomincia a control¬ 
lare i caratteri della sequenza di i- 
struzioni, distinguendo i numeri 
preceduti dalle lettere chiave. Fatto 
questo, il programma assegna a ogni 
lettera l'insieme di istruzioni ad essa 
legate; queste istruzioni, in linguag¬ 
gio macchina, vengono poste nelle 
locazioni 16720 e J6721, successiva¬ 
mente il programma le esegue un 
numero di volte pari a quello delle 
caselle da percorrere. La stampa sul¬ 
lo schermo avviene attraverso una 


zione in Assembly. A questo scopo 
vediamo di realizzare il classico gio¬ 
co del Master Mind nel quale il cal¬ 
colatore sia in grado, sia di codifica¬ 
re che di decodificare. Programmi di 
questo tipo se ne sono già visti pa¬ 
recchi; ma questo differisce da tutti 
gli altri (oltre al fatto di essere scritto 
in linguaggio macchina), per la sua 
grande adattabilità a svariate situa¬ 
zioni; ad esempio, può essere utiliz¬ 
zato per inserire dei tentativi ed ana¬ 
lizzare le possibili soluzioni. Il pre¬ 
gio principale consiste nella possibi¬ 
lità di personalizzare le tecniche di 
ricerca del codice da indovinare, con 


Listato 2. Esempio (l'utilizzo della routine di figura I. 

1 REM LPRINT Y=l“i RNDTAN E 

5RMDSfcPNDY MlRNCE (RND'"> RETURN ?C 
5CR0LL 7UBRND?! RETURN SS* RNDC 
- R $ 12* M |R N D ? MÈI N K E Y $ 7| C C1 hND * 
RNDCHR* 0778 C-0 AND ,RND??*jJJL 
*7 / Fh 5~ U IRND RETURN C4T5TRN 
DO* / ' RETURN P4.r5^RND0 '75 RET 
UPN A4 *13 RETURN 34. "19 RETURN Di 

*5 RETURN. 54*5 H RETURN 04"53S 
RETURN U4*5Ù9 RETURN E4“59H RET 
URN R4*5nSS' 7 INKEY $ ?EfcRND8 ? RETU 
R" GAB-5 %RND7 RETURN R'NDABS \RND 

U*|RND6fcRND RETURN * C| URL LN @INK 
EY$AT $4 0 LPRINT | TflB 1RNDTAN . 


5 REM [£?| YFB? RETURN |5* * £ 
£CHR$ ■MgINKEY$?7 RETURN *5-£CHR 
5 1- E £ R N D ,i U§ IN KEY $ ~ 7**5 ( CLEAR 
SSINKEV$*V??52PI; ( CLEAR 


'4KEY $ RETURN RNDC57T AN RETURN 
3 -EglM- E'■ $ ?■- RETURN *”‘'B?TAN 
7 C RUN TAN RETURN BS"«/*E'< = 1 ** 

s - V* J J. V ■.Tnis ■ 


10 POR 1=1 
20 PRINT " 
30 NEXT I 
40 UNPLOT 
_50 LET A $ = 
1 m A 5 Q 3 D 6 C B 51J 
60 POKE 13 
70 _E~ K=U 



‘ 1 BiSsSs c R 7 A 3 p§I i iOBBjD 
3PD4A3 " 

552;LEN A$ 

SR 16525 
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Listato 3. Con questo programma è stata ottenuta 
la figura 2. 

1 REM ;T fi LPRINT Y=M RNDTfiN 
E 9 R ND5fcRNDY M^RNDE(R ND? RET UR N ? 
C SCROLL 7USRND?i RETURN i25* : RND 
CHR$ *2" M 1RND?MBINKE V $71 COI RND 
■R N D C H R $ 9 ? 7| C-0 fl N D «K N D ? ? aj JtA 
fc?7FfiST UlRND RETURN C4-P5TR 
NDO*/? RETURN PiPSlRNDG /?5 RE 
TURN A4 *13 RETURN B4 *19 RETURN D 
4*5 G RETURN 84*5 H RETURN 94*55 
G RETURN U4*5G9 RETURN E4"59H RE 
TURN R 4*5H5 5 71N KEY $?EfcRND5 ? R ET 
URN GRES SRND? RETURN RNDfiBS VRN 
DUlRNDSfcRND RETURN ■ Ci URL LN SIN 
KEYgfiT $4 o LPRINT | TRE- BRNDTfiN 


?■• YFB 

hi k'FV 


RETURN 
$?? RETURN 
INKEY $'?7»*5 


R N |5| 
■S*£C! 


5 REM ia : 

£CHR$ iMglNKEY 

$ ■- 7E£RNB___ . 

SS INKEY $«V? ?52P I ; ( CLERR ? 8 ^fU 
NKEY$ RETURN RNDC57TRN RETURN 
"B.EgIN KEY $ ? ? RETUR N 


£ 

:chr 
t CLERR 


( RUN ThN 

= .U 1 V. 


RETURN t 


a” ”B'?TRN 

: E / < = ■ a" 

| B a 


10 UNPLOT 5;36 

20 LET fi $ = "BC5PBDR356DR6D58C51 
0 P B2C5 3PBDB2R7GR10PR11DB 9 G B10PB9 
9 fi 8 G R 11 P fl 7 l,l B5CB11PB5EWB3 C D fi 5 P fl R C 


fi 12 P fi 10 U B 8 U fl 10 9 B12 C B 3 P B G fl 2 P D fi 13 0 
fi B15 B fi 16 D B17 U fi 19 U B 6 C B 3 P B10 D R 7 C fi 6 
P fl 5 D B 4 C B 5 P B 9 U fl 8 G fi 7 P fl 4 B W B B G B 7 P B 7 W 
fi 51,1 B 5 i,J fi 5 U B 3 U B fl 5 D B 6 D fi 4 D B 6 U fi 7 E> B B C B 
BPB7RB35fiQ4fiEfifiCfifiPfi4i,IBD3BBRfifiS :i 
30 POKE 18552.LEN fi$ 

40 LET K=USR 16525 
50 UNPLOT 33,5 

60 LET fi $ = " BBER6EB5RFI3 SBBSflASB 
BflfiRBBRR" 


70 POKE 16552,LEN flj 
80 LET K =USR 16525 


90 STOP 

100 UNPLOT 0,0 

110 LET fi $ = "062R42S60B40D58A38S 
5 6 B 3 6 D 5 4 fi 3 4 S 5 2 B32B50R30 S45B28D 46 
fi 2 6 S 4 4 B 2 4 D 4 2 fi 2 2 S 4 0 B 2 0 D 3 8 fi 18 S 3 6 B1 
6D34fil4S32Bi2D30fll0S23B3D26fi6324 
B4D22R2S20 

120 POKE 16552,LEN fi$ 

130 LET K =USR 16525 


140 

STOP 

150 

DIM 

L $(11,195 

160 

LET 

L$ ( 1 ) = "riF.fl2S5fl2D5CDB4CC 

CCC" 


170' 

r- r- n 8 * 

LET 

L$ (2) ="Dfi4CfiPfiCB5DCCCCC 

180 

LET 

_$ (35 ="BR4B5B4CDCCCCCCC 

190 

CCC 

200 

LET 

L$ (45 ="D6S5fi4D5CB4DCCCC 

LET 

L $ (55 = " D fi 6 B 6 C D C C C C C C C C C 

■CCC “ 

210 

LET 

L$ (6 5 =”D6fi4S5CBPBB9B4CB 

BBC" 



220 
: : 

LET 

Li(73="DR4B5CB40CCCCCCC 

230 
r 1 8 

LET 

(85 ="D05S5CB5PD5CB CC C 

240 

CCC" 

250 

LET 

Lg (93 = "D05C54PSU5CDCCCC 

LET 

L $ (10) = " 0 fl,Q R 9 D D U E S D U B E 8 

SCD4 

255 

ceco 

LET 

L$ (113 = 1 ' D fi 5 C B 5 D C C C 'ff- C C C 

260 

UNPLOT 0,20 

270 

POKE 16552,19 

280 

LET 

fl $ =L 5(13 

285 

LET 

K =USR 165 P ^ 

290 

LET 

fl$=L$ (25 

300 

GOSUB 500 

310 

LET 

fl$=L$(35 

320 

GOSUB 500 

330 

LET 

fi$=L5 (45 

340 

GOSUB 500 

350 

LET 

fi $ =L$ (5) 

360 

GOSUB 500 

370 

LET 

fl È =L $ (53 

380 

GOSUB 500 

390 

LET 

fi$=L$ (2) 

400 

GOSUB 600 

410 

LET 

fl $ =L $ (7) 

' . 420 

GOSUB 500 

430 

UNPLOT 34.10 

440 

LET 

fl $ =L * (53 

450 

LET 

K=USR 16525 

460 

LET 

fi$=L$ (95 

470 

GOSUB 500 

480 

LET 

fl $ =L $(10 3 

490 

GOSUB 500 

500 

LET 

fl$=L$(113 

510 

GOSUB 500 

520 

PRINT fiT 20.0 "PREMI N "L" 

530 

INPUT K $ 

540 

CLS 


550 

GOTO 

700 

600 

LET 

K=USR 16531 

510 

RETURN 

~’00 

POR 

1=1 TO 100 

710 

UNPl 

CT RND»57 RND^37 

720 

LET 

fl $ =L g ■INT (RND *11 + 1)3 

-30 

LET 

K=USR 16525 

740 

NEXT 

I 


semplici istruzioni BASIC. La de¬ 
scrizione del programma chiarisce 
quanto detto. Il programma è diviso 
in tre parti. 

La prima serve a generare le 1.296 
soluzioni possibili nella memoria del 
calcolatore; il numero dato equivale 
alle disposizioni con ripetizione di 6 
elementi (corrispondenti ai sei colori 
del Master Mind) accoppiati a 4 a4. 
Tutto questo avviene nelle locazioni 
che vanno da 16530 a 16565. 


La seconda parte del programma 
serve per valutare un tentativo ri¬ 
spetto alla combinazione posta nelle 
locazioni 16524-5-6-7. Questa parte 
inizia dalla locazione 16566 e termi¬ 
na a 16628. 

La terza parte è quella più interes¬ 
sante; infatti qui, dato un tentativo e 
la sua valutazione, si analizzano tut¬ 
te quelle combinazioni che a quel 
tentativo associano quella valuta¬ 
zione; tutte le altre combinazioni 


vengono eliminate. Per ottenere 
questo risultato si pone la possibile 
soluzione nelle locazioni 16524-5-6- 
7, quindi si valuta rispetto ad essa il 
tentativo dato; se il responso coinci¬ 
de con la valutazione fornita, allora 
quella soluzione risulta ancora pos¬ 
sibile, altrimenti viene eliminata. 
Procedendo con un altro tentativo si 
ridurrà ulteriormente il numero del¬ 
le soluzioni possibili finché ne rimar¬ 
rà una sola; nel caso si commettano 
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degli errori nelle valutazioni dei ten¬ 
tativi, il programma, non trovando 
più soluzioni possibili, si fermerà 
dando errore H. Per inserire questa 
routine occorre, come al solito, il 
programma di caricamento con Let 
A = 16514 e una Rem di almeno 250 
caratteri. 

Fatto questo, basta inserire i codici 
della figura 3. 

A questo punto bisogna realizzare 
un programma BASIC che sfrutti le 
routine in linguaggio macchina. Per 
fare in modo che siate voi a decodifi¬ 
care la combinazione, dovete gene¬ 
rare casualmente una sequenza di 4 
cifre dall’uno al sei nelle locazioni 
16524-5-6-7 (vedi linee 120, 130, 
140, 150 del listato 4); i tentativi per 
indovinare quella combinazione de¬ 
vono essere inseriti nelle locazioni 


16520-1-2-3; per la valutazione si ri¬ 
corre alla seconda routine che viene 
chiamata con Let K = Usr 16629 (si 
noti l’uso di Let.. invece di Rand;... 
per i motivi illustrati nell’articolo 
precedente) il responso si troverà 
nelle locazioni 16528-9; nel primo 
byte vi sarà il numero di elementi 
presenti al posto giusto, mentre nel 
secondo byte gli elementi presenti 
nel posto sbagliato. 

Se volete invece che sia il computer a 
scoprire il vostro codice, dovete ge¬ 
nerare tutte le soluzioni possibili con 
una chiamata alla prima subroutine 
tramite Let K = Usr 16530; il primo 
tentativo del calcolatore deve essere 
generato casualmente e posto nelle 
locazioni a partire da 16524, mentre 
la valutazione del tentativo deve es¬ 
sere collocata nei byte 16514 e 



Figura 2. Il “Bel Paese" come viene 
mostrato attraverso il linguaggio gra¬ 
fico implementato con la routine della 
figura 1. 


F'igura 3. Istruzioni in linguaggio macchina per il 

Master Mind. 


16514 

_ 

0 


— 

0 


— 

0 


— 

0 


— 

0 


— 

0 


— 

0 


— 

0 


— 

0 


— 

0 


— 

0 


— 

0 


— 

0 


— 

0 


— 

0 

16529 

— 

0 

16530 

LD HL.25000 

33 168 97 


LD B.6 

66 


LD E.6 

30 6 


LD D.6 

22 6 


LD C.6 

146 


LD (HL).B 

112 


INC HL 

35 


LD (HL).E 

115 


INC HL 

35 


LD (HL).D 

114 


INC HL 

35 


LD (HL).C 

113 


INC HL 

35 


DEC C 

13 


JRNZ-10 

32 245 


DEC D 

21 


JRNZ-15 

32 240 


DECE 

29 



JRNZ-20 

32 235 


DJNZ -24 

16231 


LD (HL). 117 

54 117 


LD (16760). HL 

34 120 65 

16565 

RET 

201 

16566 

LD HL. 16516 

33 132 64 


LD DE. 16520 

17 136 64 


LDC.O 

14 0 


PUSH HL 

229 


LD B.4 

64 


LD A. (DE) 

26 


CP (HL) 

190 


JR NZ 7 

32 7 


INC C 

12 


LD (HL).O 

54 0 


EX HL.DE 

235 


LD (HL).8 

54 8 


EX HL.DE 

235 


INC HL 

35 


INC DE 

19 


DJNZ-14 

16 241 


LD A.C 

121 


LD (16528).A 

50 144 64 


POP HL 

225 


LDC.O 

140 


LD B.4 

64 


LD A.(HL) 

126 


PUSH HL 

229 


LD E.4 

30 4 


LDHL. 16520 

33 136 64 


CP (HL) 

190 


JR NZ 5 

32 5 


INC C 

12 


LD (HL).8 

54 8 


JR 4 

24 4 


INC HL 

35 


DECE 

29 
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Seguito figura 3. 



JRNZ-II 

32 244 


POP HL 

225 


INC HL 

35 


DJNZ -22 

16 233 


LDA.C 

121 


LD (16529). A 

50 145 64 

16628 

RET 

201 

16629 

LDHL. 16524 

33 140 64 


LD DE. 16516 

17 132 64 


LD BC.4 

140 


LDIR 

237 176 


CALL 16566 

205 182 64 

16643 

RET 

201 

16644 

LD HL.25000 

33 168 97 


LD A.(HL) 

126 


CP 117 

254 117 


JRNZ6 

32 6 


LD A.16 

62 16 


LD (16384). A 

50 0 64 


RET 

201 


PUSH HL 

229 


LD BC.4 

140 


LDHL. 16524 

33 140 64 


LD DE.16516 

17 132 64 


LDIR 

237 176 


POP HL 

225 


LD DE. 16520 

17 136 64 


LD BC.4 

140 


LDIR 

237 176 


PUSH HL 

229 


CALL 16566 

205 182 64 


POP HL 

225 


LD A.(16514) 

58 130 64 

LDC.A 

79 

LD A.( 16528) 

58 144 64 

CPC 

185 

JRZ2I 

40 21 

LD BC.4 

140 

DEC HL 

43 

EX HL.DE 

235 

LDHL.( 16760) 

42 120 65 

DECHE 

43 

LDDR 

237 184 

INC HI 

35 

INC DE 

19 

LD (HL).117 

54 117 

LD ( 16760).HL 

34 120 65 

EX HL.DE 

235 

JR 10 

24 10 

LD A.(16515) 

58 131 64 

LDC.A 

79 

LD A.(16529) 

58 145 64 

CPC 

185 

JR NZ -30 

32 225 

LD A.(HL) 

126 

CP 117 

254 117 

JR NZ -71 

32 184 

LD DE.25000 

17 168 97 

SBC HL.DE 

237 82 

LD A.(DE) 

26 

CP 117 

254 117 

JPZ 16652 

202 12 65 

SRL L 

203 61 

SRL L 

203 61 

SRL H 

203 60 

JRNC2 

48 2 

SET 6.L 

203 245 

SRL H 

203 60 

JRNC2 

48 2 

SET 7.L 

203 253 

LD B.H 

68 

LDC.L 

77 

RET 

201 


16760 — 0 

— 0 


16515. Affinché il calcolatore ana¬ 
lizzi tali valori è necessaria una chia¬ 
mata alla terza subroutine tramite 
Let K = Usr 16644; dopo questa 
chiamata la variabile K. assumerà un 
valore pari al numero di soluzioni 
possibili. È interessante vedere come 
questo numero si abbassi rapida¬ 
mente man mano si inseriscono le 
valutazioni relative ai tentativi del 
computer; si può ad esempio notare 
che il numero delle possibili soluzio¬ 
ni, dopo il primo tentativo, passa da 
1.296 a circa 200. 

In base a questa analisi si potrà 
sviluppare il miglior metodo secon¬ 
do cui scegliere i tentativi da giocare. 
È questo metodo che renderà il cal¬ 
colatore più o meno “intelligente” 
infatti, il problema principale consi¬ 
ste nel come il calcolatore debba sce¬ 
gliere i tentativi successivi. 

Questa scelta può essere compieta- 


mente casuale, basta operare come 
per il primo tentativo; tuttavia, que¬ 
sto metodo porta alla soluzione do¬ 
po 7 o 8 tentativi. Una tecnica più 
efficace consiste nell’estrarre i tenta¬ 
tivi successivi daH’insieme delle so¬ 
luzioni possibili che si trovano a par¬ 
tire dalla locazione 25000; ogni ten¬ 
tativo dovrà poi essere inserito nelle 
locazioni 16524-5-6-7 e si dovrà ope¬ 
rare come per il primo. In questo 
caso si presentano varie alternative; 
infatti, il nostro tentativo può essere 
estratto all'inizio o alla fine o in 
mezzo all’insieme delle soluzioni 
possibili; questo comporta una mag¬ 
giore o minor velocità nel decodifi¬ 
care la combinazione pensata dal 
giocatore. Nel programma del lista¬ 
to 4, ad esempio, il tentativo viene 
estratto all'inizio (vedi linee 
410,420,430,440,450,460,470). Se 
volete che il tentativo venga estratto 


in mezzo e casualment e potete inse¬ 
rire: 415 Let T = Int (Rnd *K + 1) 
*4 e modi ficare la linea 420 come 
segue: 420 For I = 24996 + T To 
24996 + T + 3. Si possono fare 
anche controlli sui tentativi estratti, 
ad esempio, scartando quelli con 
delle cifre che si ripetono, poiché 
danno poche informazioni sulla 
combinazione da scoprire. A questo 
punto, spetta a voi scegliere il mi¬ 
glior metodo secondo cui far giocare 
il calcolatore e in questo modo ap¬ 
prenderete, con l'analisi empirica, e- 
lementi di intelligenza artificiale. Il 
programma del listato 4 esprime le 
potenzialità delle routine in linguag¬ 
gio macchina che, combinate in mo¬ 
di opport uni, possono dar luogo a 
situazioni interessanti coma ad e- 
sempio il secondo livello di gioco, 
nel caso in cui sia il giocatore a risol¬ 
vere la combinazione del computer. 
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Listato 4. Sfruttando la routine di figura-3 si può 
implementare il Master Mimi. 


5S-.V2.' 

$4 PRINT +4. LIST 14- 
L Q?5?INKEV $TfiN 5BRND 

ìTiffi 


1 REM 

-** • V777777 
-OR ( 5ORO _ 

■SRND rCy /, ,B4-P£C FOP Ol FO 
_ET 7MÉRND LPRINT ' RNDH 
■ 714- POKE LPRINT "M DIM ?M 


-I £0# ■ 

BRNDTAN 
SRNDTAN 
ND ) *|PND 
GOSUB “ 
rv?i ì 
US 
ND 


5HPND ) 1RND* 


•30 SU E 


•:m 


~ uÉR 
3 §7 
£>■4. 


fi 5 N £INKEY$fi 


g L ^ 

RNDTfiN FfiST " , 50R 

GOSUB G3 LPRINT ) ffiND". 

LN ®RND LPRINT UfcRN 
F POR E?INKEY$F GOS 
EY $ POR /**U»RND?UlR 
I? GOSUB ?, RETURN ? 
XflCS UK "fiOS 


tUìK 

■ Q'S?IN 
LPRINT i 


XflCS 


P RI NT fi C S U K "fi C S C L E fi P 


■TfiN 


IO PRINT " ** MASTER MIND 

**" 

£0 PRINT 

SO PRINT "1 PER DECODIFICARE 

_fi COMBINAZIONE DEL COMPUTER" 

ppxNT 

40 PRINT "2 SE UUOI CHE SIA IL 
COMPUER fi DECODIFICARE LA TUA 
COMBINAZIONE" 

45 PRINT 

SO PRINT "3 SE UUOI INSERIRE D 
EI TENTATIVI ED ANALIZZARE LE PO 
SSIBILI SOLUZIONI" 

60 INPUT fi 
65 CLS 

70 IF fi=i THEN GOTO 100 
30 IF fi=2 THEN GOTO 300 
90 IF fi=3 THEN GOTO 6S0 
35 GOTO 10 

100 PRINT "INSERISCI IL LIUELLO 

1 0 2 " 

105 INPUT fi 

110 17 fi=2 THEN GOTO 1000 
115 CLS 

120 POKE 15524, INT i.RND*6 + l) 

130. POKEo.15525, INT (RND+6+I) 

140 POKE 15526, INT (RND+6 + 1) 

ISO POKE 16527,INT (RND+6+1) 

150 PRINT ,,"INSERI5I I TENTATI 
MI" 

170 INPUT fi$ 

IS0 CLS 
130 i_ET N = 1 

£00 PRINT "TENT.";N;" " , fi*, 

220. FOR 1 = 1 TO 4 

230 POKE 15519+1,UAL A$(I) 

£40 NEXT I 
250 RAND USR 15629 
250 PRINT "PG.";PEEK 15525;" P 
S,":PEEK 16529 

255 IF PEEK 16525=4 THEN PRINT 
"HAI UINT0 IN " ; N; ” TENTATIMI" 
270 IF PEEK 16528=4 THEN GOTO 2 
000 

250 INPUT fi* 

290 LET N=N+1 

295 GOTO 200 

300 LET K = USR 16530 

304 CLS 

305 LET N=2 

306 PRINT "DEUI UALUTARE I MIEI 


TENTATIMI" 

307 PRINT "SE UUOI UEDERE LE SO 
LOZIONI POS SIBILI BATTI S" 

303 PRINT li" "; 

310 FOR 1=1 TO 4 

320 LET J=INT (RND+6+1) 

330 PRINT J; 

340 POKE 16523+I,J 
350 NEXT I 
360 INPUT fi* 

365 IF fi * = " S " THEN GOTO 500 
370 POKE 16514,UAL fi* li) 

380'POKE 16515,UAL A*(2) 

390 PRINT ,A* _ 

395 IF fl*(1)=“4" THEN PRINT "HO 
MINTO IN ";N-l;" MOSSE" 

:?96 IF fi*(l)="4" THEN GOTO 2000 
LET'K=USR 16644 
PRINT "POSSIBILITÀ'" =";K 
PRINT N;" ”; 

LET 0=16524 
FOR 1=25000 TO 25003 
LET J =PEEK I 
PRINT j; 


4-00 

405 

407 

410 

420 

430 

440 

450 

450 

470 

550 

590 


POKE C,U 
LET C=C+i 
NEXT I 
LET N=N+1 
GOTO 360 


600 CLS 

505 PRINT "SE UUOI PROSEGUIRE P 
REMI P" 

510 FOR 1=250.00 TO 24999+K+4 ST 
EP 4 

620 PRINT PEEK I; PEEK -(T-+1) ; PEE 
- (1+2);PEEK i1+3) 

625 IF INKEY*="R" THEN GOTO 640 
630 NEXT I 

632 17 INKEY*="" THEN GOTO 632 
540 CLS 

550 PRINT "UALUTA QUESTO TENTAT 


IMO" 

550 PRINT N;" ";PEEK 15524;PEEK 
15525:PEEK 15526;PEEK 16527 
670 GOTO 360 
530 LET K =U5R 16530 
590 PRINT "PER UEDERLE BATTI 5 
AL POSTO DEL TENTATIMO" 

705 PRINT "INSERISCI IL TENTATI 


UO" 

710 INPUT A $ 

715 PRINT fi $ 

713 IF fi$="S" THEN GOTO 900 

720 FOR 1=1 TO 4 

730 POKE 16523+1,UAL fi*(I> 

740 NEXT I 

750 PRINT "INSERISCI LA UALUTAZ 
IONE" 

"60 INPUT fi * 

770 PRINT fi $ 

730 POKE 16514,UAL Aiti) 

790 POKE 16515,UAL A*(2) 

300 LET K =USR 16644 
310 PRINT "SOLUZIONI POSSIBILE 
" ; K 


320 IF K = 1 THEN PRINT "LA 50LUZ 
IONE FINALE E*" ' 

330 17 K = 1 THEN PRINT PEEK 2500 
il : PFFK PFAfli : P7FK 25002 : PEEK 250 


03 


340 IF K =1 THEN GOTO £000 
380. GOTO 700 
900 CLS 

905 PRINT "PER RITORNARE PREMI 


0” 

PIO FOR 1=25000 TO 24999+K*4 ST 
EP 4 

920 PRINT PEEK I;PEEK (I+1);PEE 
K (1+2) PEEK (1+3) 
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Seguito figura 4. 

330 IF' INKEY$="R" TMEN GOTO 950 
540 NEXT I 

341 PRINT "PER PROSEGUIRE PREMI 

N/L" 

342 INPUT H* 

950 CLS 

350 GO ! 0 TOO 
1000 CLS 

10-05 LET K=USR 16530 
1010 LET N=1 

1020 PRINT "INSERISCI I TENTRTIU 

T J * 

1030 PRINT "TENT.";N:“ 

1035 INPUT R$ 

1O40 PRINT h$, 

1050 IF N>3 THEN GOTO 220 
1055 FOF: 1 = 1 TO 4 ' 

1060 POKE 16523 + 1 URL H $ i I) 

1070 NEXT I 
1030 DIM C$(3,2) 

1081 LET C$(1)="01" 

1032 LET C$(2)=“02" 


1033 LET C$ (33 ="10" 

1090 LET J=INT (RND+3+Ì3 

1100 PRINT “PG. " C $ < J . 1 ) " PS . " 

,;C$ (J;2) 

1110 POKE 16514 ; URL 

1120 POKE 16515 ; URL C$ ( J ,2 3 

1130 LET K =USR 16644 

1140 IF N =3 THEN GOTO 1160 

1145 LET N = N +1 

1150 GOTO 1030 

1160 LET 0=16524 

1170 FOR 1=25000 TO 25003 

USO POKE CPEEK I 

1135 LET 0=0+1 

1190 NEXT I 

1200 LET N=N+1 

1210 GOTO 1030 

2000 -RINT "SE UUOI RICOPIINp IFIRE 
BRTTI R" 

2100 INPUT R£ 

2120 IF fi$ •: > "R" THEN STOP 
2130 CLS 
2140 RUN 


Qui il calcolatore, in un certo senso, 
bara poiché per i primi tre tentativi 
vi da responsi casuali di scarso valo¬ 
re (ad esempio un elemento al posto 
sbagliato) successiavamente, in base 
a quei risultati, il calcolatore sceglie 
la sua combinazione rendendovi 
quindi più difficile la strada per 
giungere alla soluzione. Questa si¬ 
tuazione la si attua sfruttando ade¬ 
guatamente le tre subroutine. 

Il programma successivo soddi- 
sferà sicuramente coloro che utiliz¬ 
zano lo ZX81 a scopi gestionali o 
comunque devono trattare un gran 
numero di dati. Come tutti sanno le 
ricerche di dati in BASIC sono parti¬ 
colarmente lente, tali da rendere più 
comodo e veloce consultare elenchi 
scritti. Il programma di gestione dati 
che vi presentiamo ha delle caratte¬ 
ristiche notevoli; infatti, permette 


non solo la ricerca di interi nomina¬ 
tivi, ma anche la ricerca di gruppi di 
lettere posti in qualsiasi posizione o 
in posizioni prefissate; inoltre, si 
possono effettuare ricerche successi¬ 
ve sui dati trovati. 

I dati devono essere inseriti in una 
matrice stringa A$ a due dimensioni 
(esempio A$ (17,24) è una matrice 
stringa composta da 17 righe, ognu¬ 
na delle quali contiene al massimo 
24 elementi). Il numero delle righe 
non deve superare 255, lo stesso vale 
per il numero degli elementi di ogni 
riga. Non è necessario inserire i dati 
in ordine alfabetico o secondo altre 
sequenze; infatti, il programma non 
utilizza tecniche di ricerca particola¬ 
ri come ad esempio nella ricerca bi¬ 
naria o nella ricerca hashing, ma ap¬ 
plica una ricerca sequenziale, cioè 
analizza tutta la lista di dati fino a 


incontrare l’elemento cercato. Nor¬ 
malmente questo tipo di ricerca non 
è molto apprezzato a causa dei lun¬ 
ghi tempi di elaborazione; ma que¬ 
sto discorso non vale se la program¬ 
mazione avviene in linguaggio mac¬ 
china; in questo caso il tempo perso 
nella ricerca si compensa con la sem¬ 
plicità e velocità deH’algoritmo usa¬ 
to. 

Il dato, del quale vogliamo trovare 
la posizione e le ulteriori informa¬ 
zioni ad esso connesse, deve essere 
inserito nella stringa W$; il primo 
carattere di questa stringa deve e- 
sprimere la posizione del nostro da¬ 
to aH’interno di una riga della matri¬ 
ce A$. Se la posizione non è nota, il 
primo elemento di WS deve essere 
posto a zero. 

Per illustrare meglio quanto detto 
possiamo fare il seguente esempio: 
supponiamo di utilizzare il pro¬ 
gramma come un’agenda telefonica; 
in una riga della matrice stringa A$ 
memorizzeremo il cognome di un 
nostro amico, poi l’indirizzo e il nu¬ 
mero di telefono; per sapere il reca¬ 
pito di questo amico è necessario 
conoscere il numero della riga in cui 
sono memorizzati i suoi dati. Per 
ottenere questo risultato, dovremo 
inserire nella stringa WS il suo co¬ 
gnome preceduto da ChrS 1 poiché il 
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Figura 4. Schema d'utilizzo delle locazioni contrassegnate dal trattino. 

Numero degli elementi presenti al posto giusto, valutati dal giocatore . 
Numero degli elementi presenti, ma al posto sbagliato valutati dal giocatore. 


16514 

16515 

16516-7-8-9, 

16520-1-2-3 

16524-5-6-7 


Locazioni nelle quali viene valutato un codice. 

In queste locazioni viene memorizzato il codice del computer quando spetta al 
giocatore decodificarlo, mentre viene memorizzato il tentativo del computer qua ndo 
esso deve decodificare il codice del giocatore. 

16528 Numero degli elementi presenti al posto giusto, valutati dal computer. 

16529 Numero degli elementi presenti, ma al posto sbagliato valutati dal computer. 

16760-1 Locazioni nelle quali viene memorizzata la posizione del puntatore che indica la fine 

di tutte le possibili soluzioni. 
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Figura 5. Istruzioni Assembler del programma per 
la gestione dei dati. 


16514 — 0 

— 0 

— 0 

— 0 

— 0 

— 0 

— 0 

— 0 

— 0 

— 0 


16524 

LD A.16 

62 16 


LD (16384).A 

50 0 64 

16529 

LDSP.( 16522) 

237 123 138 64 


LDIY. 16384 

253 33 0 64 


CALL 3883 

205 43 15 


RET 

201 

16541 

LD (16522).SP 

237 115 138 64 


LD HL.16831 

33 191 65 vedi articolo 


LD (16520). HL 

34 136 64 


LD HL.16519 

33 135 64 


LD (HL).O 

540 


CALL 3875 

205 35 15 


LDHL.( 16400) 

42 16 64 


LDA.H 

124 


CP 125 

254 125 


JR Z -42 

40 213 


LDA.(HL) 

126 


INC HL 

35 


CP 198 

254 198 


JR NZ -10 

32 245 


PUSH HL 

229 


INC HL 

35 


INC HL 

35 


LDA.(HL) 

126 


CP 2 

254 2 


JR Z 3 

40 3 


POP HL 

225 


JR-16 

24 239 


INC HL 

35 


LD A.(HL) 

126 


LD (16515).A 

50 131 64 


INC HL 

35 


LD A.(HL) 

126 


AND A 

167 


JR NZ-I2 

32 243 


INC HL 

35 


LDA.(HL) 

126 


LD ( 16516).A 

50 132 64 


INC HL 

35 


LD A.(HL) 

126 


AND A 

167 


JR NZ -22 

32 233 


LDHL.( 16400) 

42 16 64 


LDA.H 

124 


CP 125 

254 125 


JR Z -87 

40 168 


LD A.(HL) 

126 


INC HL 

35 


CP 92 

254 92 


JR NZ -10 

32 245 


LD A (HL) 

126 

LD E.A 

95 

LD A.( 16514) 

58 130 64 

CP E 

187 

JR NZ -13 

32 242 

INC HL 

35 

LDA.(HL) 

126 

AND A 

167 

JR NZ -18 

32 237 

INC HL 

35 

LD A. (HL) 

126 

LD (16518).A 

50 134 64 

ADD A.E 

131 

DECA 

61 

DECA 

61 

LD E.A 

95 

LD A.(16516) 

58 132 64 

SUB E 

147 

JR C -121 

56 134 

NOP 

0 

LD (16517).A 

50 133 64 

LDA. (HL) 

126 

INC HL 

35 

PUSH HL 

229 

POP IY 

253 225 

POP HL 

225 

LD DE.6 

1760 

ADDHL.DE 

25 

AND A 

167 

JRZ6 

40 6 

CALL 16693 

205 53 65 

JP 16529 

195 145 64 

LD A.( 16517) 

58 133 64 

PUSH HL 

229 

PUSH IY 

253 229 

CALL 16696 

205 56 65 

POP IY 

253 225 

POP HL 

225 

LD A.(16517) 

58 133 64 

DECA 

61 

LD (16517).A 

50 133 64 

JR NZ -17 

32 238 

JP 16529 

195 145 64 

LD A.(16518) 

58 134 64 

LDC.I 

14 1 

LD E.A 

95 

ADDHL.DE 

25 

LD A.(HL) 

126 

LD E.A 

95 

LD A.(IY + 0) 

253 1260 

CP E 

187 

JRZ 14 

40 14 

LD A.(16516) 

58 132 64 

LD E.A 

95 

ADDHL.DE 

25 

INC C 

12 

LD A.( 16515) 

58 131 64 

INC A 

60 

CPC 

185 

JR NZ -20 

32 235 

RET 

201 

LD A.(16514) 

58 130 64 

DECA 

61 

NOP 

0 

LD B.A 

71 

PUSH HL 

229 

PUSH IY 

253 229 

LDA.(HL) 

126 

LD E.A 

95 

LD A.(IY + 0) 

253 126 0 

INC IY 

253 35 

INC HL 

35 
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Seguito figura 5. 


CPE 
JR NZ 30 
DJNZ-12 
NOP 
NOP 

LD A.(16519) 
INC A 
CP 100 
JR NZ 7 
LD A.I5 
LD (16384). A 
JR II 

LD ( 16519).A 
LDHL.( 16520) 
INC HL 
LD (16520).HL 
LD (HL).C 
POP IY 
POP HL 
JR -68 

16777 


187 
32 30 
16 243 
0 
0 

58 135 64 
60 

254 100 vedi articolo 

32 7 

62 15 

50 0 64 

24 11 

50 135 64 

42 136 64 

35 

34 136 64 
113 

253 225 
225 
24 187 
0 
0 


16779 


16829 


LD A.(16519) 
AND A 
RETZ 
LD B.O 
LD C.A 
LD (I6777).BC 
LD 11 LI 6832 
LD DE.29000 
LDIR 

LD HL. 17688 
LD (16744).HL 
CALL 16541 
LDHL.O 
LD (16744).HL 
REI 

PUSH BC 
LDA.C 
LD BC.( 16777) 
LD HL.29000 
CPIR 
POP BC 
JR Z -82 
JR -58 


58 135 64 
167 
200 
60 
79 

237 67 137 65 
33 192 65 

17 72 113 vedi articolo 
237 176 

33 24 69 

34 104 65 
205 157 64 

33 0 0 

34 104 65 
201 

197 

121 

237 75 137 65 

33 72 113 vedi articolo 

237 177 

193 

40 173 
24 197 


primo carattere del cognome si tro¬ 
va all’inizio di una riga della matrice 
AS. Possiamo anche, dato il numero 
telefonico o l’indirizzo, risalire alla 
persona inserendo uno dei due ele¬ 
menti nella stringa WS preceduto 
dalla sua posizione all’interno della 
riga della matrice. Nel caso in cui 
tale posizione non fosse nota, il pri¬ 
mo elemento di WS deve essere u- 
guale a ChrS 0. 

Il numero di riga risultante verrà po¬ 
sto a partire dalla locazione 16832; 
nel caso vi sia più di una riga conte¬ 
nente dei dati uguali (ad esempio 
due persone con lo stesso cognome), 
tutti i numeri di queste righe vengo¬ 
no memorizzati sempre a partire 


dalla locazione 16832; il numero 
massimo di soluzioni deve comun¬ 
que essere minore di 100. Questo va¬ 
lore può essere modificato cambian¬ 
do il contenuto della locazione 
16751; si può anche modificare la 
locazione a partire dalla quale ven¬ 
gono memorizzati i numeri delle ri¬ 
ghe risultanti, basta modificare ade¬ 
guatamente le locazioni 16547-8 e 
16792-3. 

Bisogna inoltre inserire la lunghezza 
della stringa W$ nella locazione 
16514 (Poke 16514, Len W$). La 
chiamata alla routine avviene trami¬ 
te Rand Usr 16541, mentre la chia¬ 
mata per le ricerche successive avvie¬ 
ne tramite Rand Usr 16779. 


Per inserire questo programma oc¬ 
corre sempre la routine di carica¬ 
mento con Let A = 16514 e una 
Rem di almeno 430 caratteri. I codi¬ 
ci da inserire sono quelli della figura 
5. 

Dalla locazione 16524 a 16540 ab¬ 
biamo delle istruzioni di controllo in 
caso di errori e di ritorno al BASIC; 
da 16541 a 16692 il programma ri¬ 
cerca le stringhe A$ e WS e ne evi¬ 
denzia le posizioni, inoltre memoriz¬ 
za separatamente il primo carattere 
di WS nella locazione 16518. 

La ricerca vera e propria avviene 
dalla locazione 16693 fino a 16777 
mentre la routine di controllo per le 
ricerche successive si trova a partire 
da 16779 (per l’utilizzo di alcune lo¬ 
cazioni di memoria vedere la figura 
6 ). 

Le applicazioni sono innumerevoli: 
per rendervi conto di ciò provate il 
programma del listato 5. In esso so¬ 
no inseriti due interessanti utilizzi: il 
primo è il vocabolario. Volete ad 
esempio sapere come si dice in ingle¬ 
se cane basta inserire come posizio¬ 
ne della parola 1 o 0 e poi introdurre 
la parola cane. Sullo schermo appa¬ 
rirà Cane = Dog; si può fare anche 
il contrario. Il programma può an¬ 
che essere utilizzato per vedere quali 
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Figura 6 - Utilizzo delle locazioni di memoria contrassegnate dal trattino 
nel programma per la gestione dati. 

16514 Lunghezza stringa WS. 

16515 Numero di clementi della matrice di stringhe A$. 

16516 Lunghezza di ogni stringa della matrice AS. 

16517 Differenza tra la lunghezza delle stringhe di AS e quella di WS 

16518 Primo carattere di WS. 

16519 Numero di soluzioni trovate. 

16520 Locazione di partenza per memorizzare le soluzioni 

16521 

16522 Locazione nella quale viene memorizzato lo Stack Pointer. 

16523 

16777 Numero di soluzioni trovate per le ricerche successive. 

16778 
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parole memorizzate contengono de¬ 
terminate lettere o sillabe, per fare 
cioè delle analisi morfologiche (vedi 
figura 7b). Il secondo suggerimento 
che il programma fornisce è per un 
impiego scientifico; si possono ad 
esempio memorizzare degli animali 
e le loro caratteristiche poi vedere 
quali di essi presentano la particola¬ 
rità di essere mammiferi e tra i mam¬ 
miferi vedere quali sono i felini at¬ 
traverso un’ulteriore analisi sugli a- 
nimali precedentemente trovati. Un 
interessante utilizzo di questo tipo 
consiste nell’inserire le malattie e i 
loro sintomi, poi, in base a quest’ul- 
timi, risalire alla malattia o malattie 
che li presentano. In campo infor¬ 
matico si possono realizzare degli 
assemblatori o dei disassemblatori 
che associno a una determinata pa¬ 
rola un codice numerico e viceversa. 

Se il programma BASIC che avete 


intenzione di realizzare è piuttosto 
lungo, ricordate che la routine in lin¬ 
guaggio macchina utilizza per le ri¬ 
cerche successive un certo numero di 
byte a partire dalla locazione 29000; 
quindi nel caso il vostro programma 
occupi più di 13 Kbyte, conviene 
spostare il valore di quella locazio¬ 
ne, modificando i valori in 16795-6 e 
in 16822-3 (ricordiamo che nel pri¬ 
mo byte, al posto di 72, va posto un 
numero che si ottiene da: L-256*INT 
(L/256) dove L è uguale al valore 
della nuova locazione. Nel secondo 
byte, al posto di 113, va posto un 
nmero pari a Int (L/256). Infine, nel 
caso vi siano molti dati da analizza¬ 
re, essi possono venir memorizzati 
su varie matrici stringa bidimensio¬ 
nali (esempio B$ ( 100,45); per fare in 
modo che la routine analizzi la strin¬ 
ga B$ e non A$ basta cambiare il 
codice della stringa stessa memoriz¬ 


zato nella locazione 16570 (ad A$ 
corrisponde 198, a B$ 199, a C$ 
200...). L’ultimo programma è un’u¬ 
tile routine per i giochi di movimen¬ 
to; essa controlla i tasti schiacciati 
dal giocatore e sposta in otto dire¬ 
zioni il suo contrassegno, inoltre de¬ 
finisce il campo da gioco con le di¬ 
mensioni e il carattere voluto e con¬ 
trolla su quale carattere si sta spo¬ 
stando il contrassegno del giocatore. 

Le comunicazioni tra programma 
BASIC e programma in linguaggio 
macchina avvengono tramite gli ele¬ 
menti di una stringa A$. In questa 
stringa di otto elementi si inserisco¬ 
no inizialmente i parametri che defi¬ 
niscono il campo da gioco e la posi¬ 
zione del carattere mosso dal gioca¬ 
tore; gli elementi di questa stringa 
segnalano la posizione del contras- 
segno mosso dal giocatore, il carat¬ 
tere su cui tale contrassegno si sta 


Listato 5. Esempio d‘utilizzo della routine per la 
gestione dati presentata nella figura 5. 

1 REM Y(M RND GOSUB 

~Ì|RND CLEAR 5 RNDLN F7TAN GOSUB 

?1R N D 5g IN KEY $ 5fiR N D 5 »R N D G LN 7 ? E 

RND" RETURN 7CSTR$ FRST 77/ LOA 
D 7gjì NE/T 7@4 DIM E (RND? RETURN 

''CÌ§4 PRUDE 7M%RND.XX?U^RNDHS\ M 
IR N D '• *■ , ÌCVL N PIN K EY $ ? OR N D U IR ND 
FR5T CLEAR FRST LN SINKEY $ CLERR 

i_ PRINT LPRINT U |RNDXM |RND4 INPU 
T ?flRNDU\RND: * ?iC : L^RND?; fUiRNDU 
B4. FOR TRN UfcRNDX ? FRST CLEflR F 
RST 77004-2 ( NEXT U «RNDU RETURN 

7 4.PV •? M RND/ M .R N D Ef R N D 7 6lR N D ? C L 
ERP LPRINT LPRINT /JB U «RNDilCOS 
»“ •? G 0 SIJ B ?! IN K EY $5” "IN KEY $ > ? ? G 
OSUB 125/767 INKEV$LN 0RND5 67INK 
EY $TAN URL 7 GOSUB 7ÌINKEY$5?7 G 
J o J B SR * l-E/UhL ttiiiiitiiisiiit 


10 DIM 
20 LET 
30 LET 
40 LET 
50 LET 
50 LcT 
70 LET 
30 _E7 
90 lcT 
PRIMATE * 1 * * * * * 7 
100 LET 
FELINO" 
110 LET 


R$ ( 14 j 30) 

A$ il) ="CRSR HOME" 

R$ (2)="CANE DOG" 

R$(3) =“SORELLA SISTER" 
A$(4)="STANZA ROOM" 

At(5)=”FIUME RIUER" 

R$ • 6) =" IERI YESTERDAY " 

A $( 7 ) = "BIRNCO UHITE" 

A$ (S) ="ORANGO MAMMIFERO 

A $ (9) ="LINCE MAMMIFERO 

A t(10)="TIGRE MAMMIFERO 


FELINO" 

120 LET A$ (il) ="TRSSO MAMMIFERO 
MU5TELIDE" 

ISO LET hi=12)='TOPO MAMMIFERO 
RODITORE" 

14.0 LET A$ ! ' 13) = “ PRUGNE UCCELLI 
GALLINACEI" 

_150 LET fl$(14)="RANA ANFIBI ANU 

ISO PRINT "INSERSCI LA POSIZION 
E" 

130 PRINT "( 0 SE NON E* NOTA) ” 
190 INPUT A 

200 PRINT "INSERISCI I DATI DA 
CERCARE" 

210 INPUT. Ut 

230 LET Ut =CHRt A+U$ 

240 POKE 16514,LEN U$ 

250 RAND USR 16541 
255 PRINT 

260 FOR 1=16632 TO PEEK 16519+1 
5331 

270 PRINT A*lPEEK Ij 
280,NEXT I 
290 PRINT 

300 PRINT “UUOI FARE UNA ULTERI 
ORE ANALISI SUI DATI TROUATI?" 
310 INPUT Ut 

320 IF U$="N" OR U$="NO” THEN 5 
TOP 

330 PRINT "INSERIRE POSIZIONE" 
340 INPUT A 

350 PRINT "INSERIRE ULTERIORI D 
ATI" 

360 INPUT Ut 

370 LET U$ =CHR$ A+Ut 

350 POKE 16514, LEN U$ 

390 RAND USR 16779 
400 GOTO 260 
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Routine 
in linguaggio 
macchina. 


Figura 7a - Esempio difunzionamento del program¬ 
ma per la gestione dati: qui si è voluto vedere, tra 
una serie d'animali, quali fossero mammiferi e, tra 
questi ultimi, quali fossero felini. 


"VERSOI Lfi 
3 SE NON 
SEP: ISOI I 
. -TO=fi 


POSIZIONE 
E" NOTA) £ 

DATI DA CERCARE 


C hSh HOHE 
CANE DOG 

THS50 MHf-lhlrER0 MUSTELIDE 
PAVONE UCCELLI GALLINACEI 
RANA ANFIBIO ANURI 

VUOI FARE UNA ULTERIORE ANALISI' 
SUI DATI TROVATI? SI 
INSERIRE POSIZIONE 1 
INSERIRE ULTERIORI DATI 
DATO ULTERIORE=C 

CASA HOME 
CANE DOG 

VUOI FARE UNA ULTERIORE ANALISI 
SUI DATI TROVATI? 


Figura 7b - Fra tutte le parole memorizzate, si sono 
cercate quelle con la A come seconda lettera e poi 
quelle iniziami con la C. 


INSERSCI Lfi POSIZIONE 
> e SE NON E"NOTA) 0 
INSERISCI I DATI DA CERCARE 
DATO sMAMMÌFERO 

ORANGO MAMMIFERO PRIMATE 
_INCE MAMMIFERO FELINO 
TIGRE MAMMIFERO FELINO 
TASSO MAMMIFERO MUSTELIDE 
TOPO MAMMIFERO RODITORE 

,'UOI FARE UNA ULTERIORE ANALISI 
SUI DATI TROVATI? SI 
INSERIR- POSIZIONE 0 
INSERÌ-j ULTERIORI DATI 
DATO ULTERIORE=FELINO 

_INCE MAMMIFERO FELINO 
TIGRE MAMMIFERO FELINO 

..ZI FARE UNH UuTERIORE ANALIS 
Svi DATI TROVATI? 


LD (16592).HL 
LD BC.4 
LD DE.16514 
LDIR 
LD A.(HL) 

LD ( 16519).A 
INC HL 
LD A.(HL) 


34 208 64 
140 

17 130 64 
237 176 
126 

50 135 64 

35 
126 





LU 

JU IVJ DJ 

Figura 8 - Istruzioni in linguaggio macchina di una 


INC HL 

LD E. (HL) 

35 

94 

routine da usare nei giochi di movimento. 



INC HL 

35 




LD B (HL) 

70 

16588 — 

0 


LDD.B 

80 

— 

0 


LD (16588).DE 

237 83 204 64 

— 

0 


LDD.O 

22 0 

— 

0 


LD HL.(16396) 

42 12 64 

— 

0 


INC HL 

35 

— 

0 


ADDHL.DE 

25 

16594 LDA. 19 

62 19 


LD DE.33 

17 33 0 " 

LD (16384). A 

50 0 64 


ADDHL.DE 

25 

RET 

201 


DJNZ -2 

16 253 

16600 LD HL.(!6400) 

42 16 64 


LD (16590).HL 

34 206 64 

LD A.H 

124 


CALL 16518 

205 134 64 

CP 125 

254 125 


RET 

201 

JR Z -13 

40 242 

16682 

LDHL.( 16592) 

42 208 64 

LD A. (HL) 

126 


LD DE.5 

1750 

INC HL 

35 


ADDHL.DE 

25 

CP 198 

254 198 


LD (HL).O 

54 0 

JR NZ -10 

32 245 


INC HL 

35 

LD A. (HL) 

126 


LD (HL).O 

54 0 

CP 11 

254 11 


CALL 699 

205 187 2 

JR NZ -10 

32 245 


LD A.H 

124 

INC HL 

35 


ADD A.2 

198 2 

INC HL 

35 


JR C 8 

56 8 

LD A. (HL) 

126 


LD B.H 

68 

CP 1 

254 1 


LD C.L 

77 

JRZ4 

40 4 


CALL 11981 

205 189 7 

DEC HL 

43 


LD C.(HL) 

78 

DEC HL 

43 


JR C 2 

56 2 

JR -21 

24 234 


LD C.O 

140 

INC HL 

35 


LD A.C 

121 

INC HL 

35 

16713 

CP 37 

254 37 tasto “9” 

INC HL 

35 


JR NZ 12 

32 12 


28 
















Seguito figura 8. 








DEC L 

45 




CP 58 

254 58 tasto “U” 

LD DE.5 

1750 


JR NZ 2 

32 2 

LDHL.(I6592) 

42 208 64 


INC H 

36 

ADD HL.DE 

25 


INC L 

44 

LD (HL).I 

54 I 


PUSH HL 

229 

JP 16831 

195 191 65 


LD E.L 

93 

16729 CP 28 

254 28 tasto “0" 


LD B.H 

68 

JRNZ5 

32 5 


LD D.O 

22 0 

LD DE.6 

1760 


LD HL.(16396) 

42 12 64 

JR-17 

24 238 


INC HL 

35 

LD HL.( 16590) 

42 204 64 


ADD HL.DE 

25 

16741 CP 36 

254 36 tasto "8" 


LD DE.33 

17 3300 

JR NZ 2 

32 2 


ADDHL.DE 

25 

NOP 

0 


DJNZ -2 

16 253 

INC L 

44 


LDA.(HL) 

126. 

CP 33 

254 33 tasto “5” 


LD E.A 

95 

JR NZ 2 

32 2 


LD A.(16519) 

58 135 64 

NOP 

0 


CP E 

187 

DEC L 

45 


LD A.E 

123 

CP 34 

254 34 tasto ‘*6" 


JR NZ 3 

32 3 

JR NZ 2 

32 2 


POP HL 

225 

NOP 

0 


JR 14 

24 14 

INC H 

36 


PUSH HL 

229 

CP 35 

254 35 tasto “7” 


LD HL.( 16590) 

42 206 64 

JR NZ 2 

32 2 


LD (HL).O 

54 0 

NOP 

0 


POP HL 

225 

DECH ‘ 

37 


LD (16590).HL 

34 206 64 

CP 46 

254 46 tasto “I” 


POP HL 

225 

JR NZ 2 

32 2 


LD ( 16588).HL 

34 204 64 

DECH 

37 


LD HL.(16590) 

42 206 64 

INC L 

44 

16834 

LD (HL).O 

54 0 

CP557 

254 57 tasto “T” 


LDHL.( 16592) 

42 208 64 

JR NZ 2 

32 2 


LD DE. 16588 

17 204 64 

DECH 

37 


EX HL.DE 

235 

DECLL 

45 


LD BC.4 

140 

CP 62 

254 62 tasto “Y" 


LDIR 

237 176 

JR NZ 2 

32 2 


LDC.A 

79 

INC H 

36 

16849 

RET 

201 


spostando e infine se sono stati pre¬ 
muti i tasti 9 e 0 che possono essere 
sfruttati per sparare o per operazio¬ 
ni particolari. Cosi facendo, si evita 
di usare la funzione InkeyS e i con¬ 
trolli ad essa connessi, si elimina la 
stampa del carattere del giocatore e i 
controlli sulla sua posizione; tutto 
ciò rende il gioco più veloce. 

Per inserire questo programma oc¬ 
corre una Rem di almeno 340 carat¬ 
teri e la solita routine di caricamento 
con Let A = 16518; a questo punto 
dovrete, prima inserire i codici del 
primo programma presentato sul 
numero (ci riferiamo al programma 
che disegna una cornice con un ca¬ 
rattere a scelta); dopo di che, biso¬ 
gna introdurre i codici della figura 8. 


La cornice disegnata dal primo 
programma serve per limitare il 
campo di gioco e il. contrassegno del 
giocatore non potrà oltrepassarla; se 
voleste inserire delle strutture (esem¬ 
pio bordi interni di un labirinto) 
alPinterno del campo da gioco tali 
che il contrassegno non possa oltre¬ 
passarle, dovrete costruirle con lo 
stesso carattere del bordo esterno. 
La seconda parte del programma 
serve per rintracciare la stringa A$, 
valutare gli elementi che la costitui¬ 
scono, analizzare la situazione della 
tastiera tramite delle chiamate a due 
subroutine della ROM (la prima ini¬ 
zia dalla locazione 699, mentre la 
seconda da 1981), eseguire gli spo¬ 
stamenti relativi ai tasti premuti. 


• Tasto “5” il contrassegno si sposta 
a sinistra. 

• Tasto “6” il contrassegno si sposta 
verso il basso. 

• Tasto “7” il contrassegno si sposta 
verso Paltò. 

• Tasto “8” il contrassegno si sposta 
verso destra. 

• Tasto “I” il contrassegno si sposta 
verso nord-est. 

• Tasto “T” il contrassegno si sposta 
verso nord-ovest. 

• Tasto “Y” il contrassegno si spo¬ 
sta verso sud-ovest. 

• Tasto “U” il contrassegno si spo¬ 
sta verso sud-est. 

La posizione X del carattere mosso 
dal giocatore si trova nel registro L, 
mentre la posizione Y si trova nel 
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Listato 6. Esempio d’uso del programma per i giochi 
in movimento. 


i REM :i- fi ,*4U.RND?7; ( C 

i_ERR UfcRND? : FhST Ef RND7-5GN .; U^R 
N D 7 ? 7 ( U N P LOT F 5 5 U |R N D 7 ; 7 ( U H P L 
OT U^RND?!F?( UNPLOT ) TO COPY U 
1RHD?| ; ?( UNPLOT TRN “£ THEN ??? 

M RND7PN E(RND? RETURN ?C PRUS 
E 7F / REM 7775SOR RND*■ )fcRND GO 

SUB SM?INKEY$7?7?7 GOSUB 7RTN RN 
C- E£RND7;)5 ;( CLEflR 6EXP RNDLN 
* a RNDTRN ESOR RND) | ; Q 70 LN ZI *7 

LEN *5l?7LN HP?S *: 7 RETURN 94£) 

I ESOR RND.; 0*7gINKEYS RETURN 04| 
'•»* / INPUT EhTN RND RETURN 54* 6 
RETURN 54 * H RETURN 54 * 5 RETUR 
N ?4 * 9 RETURN 14 *9G RETURN T4 *9 
H RETURN Y4 *SH RETURN U4 *SG FRST 


77- E£RND7;)5 ;( CLERR 74" LPRI 
NT /: FhST EEXP RNDO LPRINT 6EX 
P RND LPRINT SfiTN RNDEEXP RNDO+E 
SOR RND)RTN RND FOR *, GOSUB S? 
TRN .. 


10 

DIM 

R$ (8) 


20 

LET 

fl$(1)=CHR$ 

H 

30 

LET 

R $(2) =CHR$ 

3 

40 

LET 

R $(5) =CHR$ 

20 

50 

LET 

fi$(4)=CHR$ 

15 

60 

LET 

fì$(5) =CHR $ 

O 

7© 

LET 

H $(6) =CHR$ 

21 

80 

LET 

R$(7)=CHR$ 

10 

90 

LET 

R$(8)=CHR $ 

3 

100 

LET 

K=USR 16600 


118 

LET 

K=USR 16682 



115 PRINT RT 1 ; 1;R$ 
120 GOTO 110 


registro H; quindi per spostarsi di 
una riga si useranno le istruzioni 
Dee H e Ine H (37 e 36), mentre per 
spostarsi di una colonna, si useran¬ 
no le istruzioni Dee L e Ine L (44 e 
45). Queste indicazioni possono es¬ 
sere utili nel caso vogliate modifica¬ 
re gli spostamenti e la loro entità; ad 
esempio, se volete fare in modo che 
gli spostamenti collegati ai tasti 5, 6, 
7, 8 non siano di una casella ma di 
due, avete a disposizione delle loca¬ 
zioni caratterizzate dall’istruzione 
Nop (vedi figura 8) nelle quali inseri¬ 


re un ulteriore spostamento utiliz¬ 
zando le quattro istruzioni prece¬ 
dentemente illustrate. Nel caso desi¬ 
deriate fare in modo che il contrasse¬ 
gno si sposti in una direzione indi¬ 
pendentemente dai tasti premuti, bi¬ 
sogna eliminare le istruzioni CP nu¬ 
mero tasto e JR NZ 2 relative a quel¬ 
la direzione. 

Ad esempio, se vogliamo fare in 
modo che il contrassegno si sposti 
sempre di una casella verso destra, 
dovremo inserire quattro zeri, con 
delle Poke, nelle locazioni 16741-2- 


3-4. 

La sintassi di funzionamento richie¬ 
de che la stringa A$ sia inizialmente 
dimensionata (Dim A$ (8)) con 8 
caratteri; i valori da inserire nella 
stringa sono illustrati nella figura 9. 
Per disegnare il bordo e inizializzare 
la routine occorre eseguire la se¬ 
guente chiamata: Let K = Usr 
16600. 

Per giocare bisogna inserire Let K 
= Usr 16682 

Durante il gioco la variabile K. assu¬ 
me il valore del carattere su cui il 
contrassegno si sta spostando. Per 
quanto riguarda le preziose indica¬ 
zioni fornite dalla stringa A$, du¬ 
rante il gioco osservate attentamen¬ 
te la figura 9. 

Vi è una limitazione per le dimensio¬ 
ni del campo da gioco, e cioè, il bor¬ 
do superiore non deve occupare la 
prima riga in alto che potrà essere 
destinata all’indicazione del nome 
del programma, o per segnare il 
punteggio; per il resto valgono le in¬ 
dicazioni dell’articolo precedente. Il 
programma del listato 6 vi chiarirà 
meglio le idee. In questo programma 
lo spigolo in alto a sinistra del bordo 
ha le coordinate 2,3; la lunghezza dei 
lati è pari a 20 e 15; il carattere che 
costituisce il bordo è ChrS 8; il con¬ 
trassegno mosso dal giocatore è rap¬ 
presentato dal carattere Chr$ 21 ed è 
posto nel punto di coordinate 10,8. 


Figura 9 - Schema d'utilizzo delle locazioni contrassegnate dal trattino del 

programma di figura 8. 

16588 

Coordinata X della posizione del giocatore. 

16589 

Coordinata Y della posizione del giocatore. 

16590-1 

Posizione del giocatore nella memoria di schermo. 

16592-3 

Posizione della stringa A$. 

Schema per la definizione iniziale della stringa A$ 

A$(l) = ChrS 

Coordinata X dello spigolo in alto a sinistra del contorno del campo di 


gioco. 

A$(2) = ChrS 

Come prima, ma per la Y. 

A$(3) = ChrS 

Lunghezza lato X. 

A$(4) = ChrS 

Lunghezza lato Y. 

AS(5) = ChrS 

Numero del carattere per il contorno. 

A$(6) = ChrS 

Coordinata X della posizione del giocatore. 

A$(7) = ChrS 

Coordinata Y della posizione del giocatore. 

AS(8) = ChrS 

Codice del carattere mosso dal giocatore. 

Durante il gioco gli elementi della stringa A$ assumono la seguente funzione 

Code A$(l ) 

Posizione X del giocatore. 

Code A$(2) 

Posizione Y del giocatore. 

Code A$(3) 

+ 256 x Code A$(4) = posizione del giocatore nella memoria del calcolato- 

Code A$(6) 

Vale 1 se viene premuto il tasto “9”, altrimenti assume il valore 0. 

Code A$(7) 

Come prima, ma per il tasto “0”. 
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Il piimo settimanale di software 
su calta per il tuo personal computer 
Un appuntamento al quale non puoi 
mancare ogni venerdì in edicola. 
Nato in edizione unica, per i più 
diffusi homo e personal 
computer, dal 1 Aprile, 
allo stesso prezzo, saranno 
in edicola le versioni dedicate 
ai prodotti Sinclair (ZX81, 

ZX Spectrum e QL) e ai 
prodotti Commodore (VIC20, 

CI6 e C64). 

In più un’edizione esclusiva 
per gli utenti dei personal 
Apple, gli home computer 
Texas e i nuovissimi sistemi MSX. 
Una grossa novità: la possibilità 
di abbonarsi dal 1 Aprile 1985 
al 31 Dicembre 1985 per ricevere 
38 numeri del settimanale 
comodamente a casa con un 
notevole risparmio. Chi si abbona 
riceverà ogni 15 giorni 2 numeri 


EDTTRICE 


di PAPER Soft 
in anticipo rispetto 
all’uscita in edicola. 
Non perderò questa 
occasione! 

Compila subito 
il coupon qui 
riportato e spediscilo 
a: 

3. soft 

V.le Restelli, 5 
20124 MILANO 


I 


Tagliando abbonamento a PaperSoft da inviare in busta chiusa a: 
l.sotl- V.le Restelli, 5 ■ 20124 MILANO 

□ Abbonamento a 38 numeri di Paper Soli al prezzo speciale di L. 30.000 anziché L. 38.000 

□ edizione Sinclair (PS01) O edizione Commodore (PC01) O edizione Apple/TI99/MSX (PV01 ) 

□ contanti allegali □ assegno allegalo n. _ 


□ ho versato l'importo sul c.c.p. n. 19445204 intestato a l.sofl - MILANO 

Cognome_Nome _ 

Via_Città_ 

CAP_Prov. _Dola_ 


I 

I 

I 

I 

I 

I 

I 


Firma 





































Dump 1. Dump di controllo della routine presentata nella figura 1. 


1*514. 

2 

0 

1535 3 

2 

33 

1*512 

2 

£6 




1*789 

2 


15515 

“ 

0 

15554. 

2 

55 

155 13 

2 

£13 

15561 

2 

-, 

_■ a. 

-5-10 

2 


15515 


0 

15555 

2 

£09 

15511 

- 

: “ 2 

15652 

2 


15-11 

2 

15 

.5517 


0 

1*66* 

2 

11 

_5 515 

2 

*l~ 

15653 

= 

15 

1 * -19 

2 

36 

~ — •* C; 

= 

223 

15357 

2 

123 

7 ** ' R 

=' 

s- 

16551 

2 

35 

16713 

2 

31 

1*515 

= 

52 

15555 

2 

.£51 

1*517 

2 

! •* 

J.C _ 

15655 

- 

£51 

15711 

2 

30 

-5525 

2 

20 

16559 

2 

li 7 

■ z — • z 
— - — 

2 

135 

15666 

2 

30 

15715 

2 

65 

15521 

2 

SO 

■’ 6.5 "7 0 

2 

R* 

1*519 

2 

135 

1***7 

2 

32 

15-16 

2 

“7 sr 

15521 

= 

0 

16571 

2 

1 

15620 

2 

• 3 * 

15653 

2 


1571- 

2 

1£ 

15523 

= 

51 

15572 

2 

11 

155£ 1 

2 

1£9 

15669 

2 

15 

15713 

2 

130 

15 521 

— 

201 

■ 6-677 

= 

61 

_56££ 

2 

129 

15670 

- 

*7 

16719 

2 

61 

15525 


12 

15571 

2 

£11 

15 5 £ 3 

2 

130 

16671 

2 

£54. 

15720 

2 

0 

15525 

2 

51 

■’ -.FI"76 

2 

123 

155£1 

2 

25 

15672 

2 

11 

15 721 

2 

0 

15527 

2 

51 

15576 

2 

30 

•_ 5 5 £ 5 

2 

35 

15673 

2 

32 

16 7 d 2 

2 

1£1 

16525 


31 

1 SF77 

2 

1 

16625 

2 

£1 

15671 

2 


15723 

2 

251 

-5525 

2 

130 

15573 

2 

50 

'**2~■ 

2 

cL 

16575 

2 

33 

16721 

2 

li 

15 530 

2 

51 

1657Q 

2 

1 F;:"; 

15623 

2 

39 

15675 

2 

0 

15725 

2 

£10 

15531 

— 

62 

15550 

2 

51 " 
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Dump 3. Dump della routine della figura 5. 
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John Scriven, Patrick H 

COMMODORE 64 
A SCUOLA 

Imparare è bello se lo si fa div 
tendosi; è il messaggio di 
sto libro scolastico ma diverten 
te, sul Commodore 64. 

Cod. S 74D Pag. 1B2 Lire 18.000 


Umberto Barzaghi 

STATISTICA A UNA 
DIMENSIONE CON IL C64 

Il primo manuale didattico 
espressamente studiato per 
l'apprendimento dei principi 
fondamentali della statistica 
tramite calcolatore. 

Co d. 570A Pag. 172 Lire 17.000 

Rita Bonelli 

COMMODORE 16 PER TE 
BASIC 3.5 

Il primo libro-cassetta sul Com¬ 
modore 16 per imparare il BA¬ 
SIC sul video. 

Con cassetta. 

Co d. 413B Pag. 294 Lire 35.000 


que 


Czes Kosniowski 
MATEMATICA 
E COMMODORE 64 

Un libro per chi vuol saperne di 
più sulle applicazioni matemati¬ 
che del C64, per studiare ma 
anche per divertirsi. 

Con cassetta. 

Cod. 570D Pag. 158 Lire 24.000 


biblioteca che fa testo 


Totomac 

IL SISTEMA TOTOMAC 
la nuova frontiera del 
totocalcio per C64 

Uomo del nostro tempo, Toto¬ 
mac si affida all'ausilio del com¬ 
puter per individuare le proba¬ 
bilità meno utilizzate dalla mas¬ 
sa dei giocatori, e, avendo ben 
presente i principi della selezio¬ 
ne naturale, cerca di batterli 
con tecniche intelligenti. 

Con cassetta. 

Cod. 5 760 Pag. 128 Lire 24.000 

Michael Browne 
UNITÀ A DISCHI 
per Personal Computer 

Il libro, destinato a lettori con 
una buona conoscenza di base 
dell’uso di un calcolatore e del 
linguaggio BASIC, descrive il 
funzionamento dell'unità a di¬ 
schi di un personal computer e 
il significato dei comandi relati¬ 
vi, con particolare attenzione 
per le diverse tecniche di ge¬ 
stione dei file su disco. 

Cod. 30 OP Pag. 158 Lire 15.000 



ritagliare (o fotocopiare) e spedire in busta chiusa a: 

GRUPPO EDITORIALE JACKSON - Divisione Libri - Via Rosellini, 12 - 20124 Milano 

CEDOLA DI COMMISSIONE LIBRARIA 


VOGLIATE SPEDIRMI 


n° copte 

codice 

Titolo 

Prozzo unitario 

Prezzo totale 
















Totale 



□ Pagherò contrassegno al postino il prezzo indicato piu L. 3.000 per contributo fisso speso di spedizione. 
Condizioni di pagamento con esecuzione del contributo spese di spedizione: 

□ Allego assegno della Banca □ Allego fotocopia del versamento sul c/c n 11666203 a voi intestato 

N J _ D Allego fotocopia di versamento su vaglia postale e voi intestato 


Nome e Cognome 


Via 

Cap 

Città 

Prov. 

Data 

Firma 



Spazio riservato alle Aziende Si richiede l’emissione di fattura 
Partita I VA I I I I I I 1 I I I I I I 


ORDINE 
MINIMO 
L 50.000 



























Routine 
in linguaggio 
_macchina 
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s 

205 

15703 

2 

126 

16742 

3 

16 

16781 

3 

64 

16820 

2 

65 

1.4654 

a 

53 

16704 

2 

0 

15743 

3 

243 

16732 

3 

167 

16321 

2 

33 

15665 

a 

55 

16705 

2 

137 

15744 

3 

0 

15783 

3 

200 

15322 

2 

72 

16665 

a 

195 

15706 

2 

40 

16745 

3 

0 

16784 

3 

6 

15823 

2 

113 

14447 

a 

145 

15707 

2 

14 

15746 

3 

53 

16785 

3 

0 

15824 

2 

237 

16563 

s 

64 

15703 

2 

53 

15747 

3 

135 

16786 

3 

79 

15325 

2 

•* * 7 -* 

4 . f 

16569 

s 

55 

'16709 

2 

132 

16743 

3 

64 

15787 


237 

16826 

2 

193 

15670 

a 

133 

15710 

2 

64 

16749 

3 

60 

15788 

3 

67 

15327 

2 

40 

15671 

= 

64 

15711 

2 

95 

16750 

3 

254 

16789 

3 

137 

16828 

2 

173 

16672 

16673 

a 

s 

229 

253 

16712 

2 

25 

16751 

16752 

3 

3 

100 

32 

16790 

3 

65 

15829 

15530 

2 

2 - 

24 

197 


Dump 4. Dump della routine per i giochi in movimento visibile in figura 8. 


15538 

2 

0 

15503 

2 

126' 

15525 

2 

24' 

15648 

2 

35 

15653 

2 

25 

16539 

2 

0 

15509 

2 

35 

15529 

2 

234 

15549 

2 

126 

15669 

2 

17 

15590 

2 

0 

15510 

2 

254 

15530 

2 

35 

16550 

2 

50 

16670 

2 

33 

16591 

2 

0 

15611 

2 

125 

16631 

2 

35 

15651 

2 

195 

15571 

2 

0 

16592 

2 

0 

-6612 

2 

32 

15632 

2 

35 

15 552 

2 

65 

15672 

2 

25 

15 59 3 

2 

0 

16513 

2 

245 

16633 

2 

34 

15653 

2 

35 

15673 

2 

16 

16594 

2 

62 

15614 

2 

126 

16634 

2 

203 

15554 

2 

94 

15674 

2 

253 

16595 

2 

19 

15615 

2 

25a 

15635 

2 

64 

-5655 

2 

35 

16675 

2 

34 

-5595 

2 

50 

15516 

2 

11 

16636 

2 

1 

16656 

2 

70 

16675 

2 

206 

16597 

2 

0 

16617 

2 

32 

16537 

2 

4 

15557 

2 

30 

15677 

2 

64 

-5593 

2 

64 

15515 

2 

245 

15633 

2 

0 

15653 

2 

237 

16573 

2 

285 

15599 

2 

201 

15519 

2 

35 

15639 

2 

17 

15559 

2 

83 

16679 

2 

134 

- S 0 0 

2 

42 

15520 

2 

35 

15640 

2 

130 

15650 

15561 

2 

204 

15630 

2 

64 

15601 

2 

16 

16521 

2 

125 

15541 

2 

54 

2 

64 

15631 

2 

201 

18602 

2 

54 

15622 

2 

254 

15542 

2 

237 

15652 

2 

22 

15682 

2 

4cJ 

li=.g0 ^ 

2 

124 

15623 

2 

1 

16643 

2 

176 

16663 

2 

0 

15633 

2 

208 

16 504. 

2 

Hd4 

15624 

16525 

2 

40 

15544 

2 

126 

15654 

2 

42 

15634 

2 

64 

15605 

2 

125 

2 

4 

15645 

2 

50 

16655 

2 

12 

15655 

2 

17 

16606 

2 

40 

15526 

2 

43 

15546 

2 

135 

15666 

2 

64 

16636 

2 

5 

16607 

2 

242 

15627 

a 

43 

15647 

2 

64 

15557 

2 

35 

16637 

2 

0 


\ 
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Seguito Dump 4. 


16 6 SS 


25 

15 720 

X 

42 

16733 

X 

254 

■ - -7 - =; 

X 

32 

15317 

X 

229 

16639 

x 

54 

16 721 

X 

208 

15734 

X 

34 

15 735 

X 

X 

' fi 8 1 w 

X 

42 

16690 

x 

0 

16722 

X 

64 

17 77.=: 

- 

32 

1F, 7 F; 7 

X 

35 

15 319 

X 

205 

16691 

X 

35 

15723 

X 

25 

16756 

X 

O 

15733 

X 

44 

-15 320 

X 

64 

15 692 

X 

54 

1 5 724. 

X 

54 

15757 

X 

0 

15739 

X 

229 

15 521 

X 

54 

15696 

X 

3 

- ->p~ 

X 

1 

15753 

X 

35 

j.5790 

X 

93 

15822 

X 

0 

16694- 

X 

205 

15725 

X 

195 

15759 

X 

254 

16791 

X 

63 

15823 

X 

225 

15695 

X 

137 

15727 

X 

191 

15750 

X 

35 

15792 

X 

22 

15 324 

X 

04 

15696 

X 

2 

: >=723 

X 

65 

15751 

X 

32 

_ 5 “ 9 3 

X 

0 

-5325 

X 

206 

15697 

X 

124 

15729 

X 

254 

15762 

X 

2 

15794 

X 

42 

15325 

X 

64 

15698 

X 

193 

16 730 

X 

23 

16753 

X 

0 

15795 

X 

12 

15327 

X 

225 

16699 

X 

£L 

15731 

X 

32 

15764 

X 

37 

16796 

X 

64 

15323 

X 

34 

16700 

X 

56 

1 4.772 

X 

5 

15755 

X 

254 

15 72“’ 

X 

35 

15329 

X 

284 

15 01 

X 

3 

15708 

X 

17 

15755 

X 

45 

15798 

X 

25 

2 •=, 0. 0 

X 

54 

16 702 

X 

63 

15734 

X 

fi. 

15 757 

X 

32 

15799 

X 

17 

15381 

X 

42 

15706 

X 

77 

15 735 

X 

0 

15753 

X 

2 

15 300 

X 

■j 

15332 

X 

286 

15704- 

X 

205 

16735 

X 

24 

1 F, 7 F Q 

X 

37 

1 = 801 

X 

0 

■ - - - 

X 

54 

16705 

X 

139 

15737 

X 

238 

15778 

X 

44 

' 480 

X 

25 

15 534 

X 

R4 

15706 

X 

*7 

15733 

X 

42 

15771 

X 

254 

15300 

X 

16 

‘ C. -; CT 

X 

0 

15 7 0 7 

X 

78 

16 739 

X 

204 

16772 

X 

57 

15304 

X 

253 

16336 

= 

42 

16705 

X 

55 

15740 

X 

64 

15773 

X 

32 

15305 

X 

126 

15337 

X 

203 

16709 

X 

e. 

16741 

X 

254 

15774 

X 

e! 

15305 

X 

95 

15338 

X 

fi 4 

15710 

X 

14 

1574-2 

X 

35 

15775 

X 

37 

16307 

X 

53 

2 fi fi fi* 

X 

17 

16711 

X 

0 

15743 
15 744 

X 

32 

15776 

X 

45 

15303 

X 

1 

15840 

X 

284 

15 712 

X 

121 

X 

£L 

15777 

X 

254 

15 30 9 

X 

54 

15841 

X 

64 

16718 

X 

254 

15745 

X 

0 

157 75 

X 

62 

15310 

X 

137 

15342 

X 

205 

16714- 

X 

37 

15746 

X 

44 

15779 

X 

32 

15311 

X 

123 

15343 

X 

1 

15 715 

X 

32 

15747 

X 

254 

15730 

X 

2 

15312 

X . 

32 

15844 

X 

4 

■I r, 71 != 

X 

12 

15743 

X 

33 

16731 

X 

35 

16310 

X 

: *T; 

15845 

= 

0 

15717 

X 

l - ’ 

16749 

X 

32 

15732 

X 

45 

16314 

X 

225 

15346 

X 

237 

_5-13 

X 

5 

15750 

X 

£ 

' =. 7 .=; 7 

X 

254 

15515 

X 

24 

16347 

X 

175 

ia.’io 

X 

0 

15751 

X 

0 

15734 

X 

53 

15816 

X 

14 

15843 

X 

79 




15752 

X 

45 






15349 

X 

201 


Guida per l’input dei programmi versioni VIC 20 e C 64 

Notate che i listati contengono “parole" racchiuse tra parentesi graffe { } . Tali parole rappresentano 
caratteri di controllo come mostrato nel sottostante riquadro. Se sono precedute da un numero, questo 
indica il numero di volte che quel tasto deve essere premuto. Se il simbolo è sottolineato deve essere 
premuto contemporaneamente a SHIFT mentre se è racchiuso da [ < > ] deve essere premuto contempora¬ 
neamente al tasto COMMODORE. Inoltre, se tra parentesi si trova un carattere alfabetico "solitario", questo 
dovrà essere premuto contemporaneamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto più agevole copiare i listati senza faticose e dubbie interpretazio¬ 
ni di caratteri grafici e di controllo di cursore o dei colori. 


Quando leggale: 

PraoMta: V«dr«U: 

Quando leggete: 

Premete: 

Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

(CLR) 

QQ Q2S3 

c 

(CYN ) 

KSD 

li 

|<7>] 

QB 

□ 

(HOME) 

(2223 

m 

(PUR) 

ano 

m 

K8>] 

Q □ 

■ ■ 

(SU) 

QD BB 

□ 

(GRN) 

BOB n 

□ 

(FI) 

m 

m 

(GIU’) 

■bmi 

E 

(BLU) 

ai 

B 

(F 2 ) 

09 


(SIN) 

CD BSD 

II 

(YEL) 

aa 

Si 

(F 3 ) 

un 


(OES) 

■BBS 

a 

I<1>1 

QB 

□ 

(F 4 ) 

0 □ 

m 

( RVS ) 

DO O 

E 

(<2>1 

QB 

m 

(F 5 ) 

no 

11 

(OFF) 

CCS □ 

■ 

K3>) 

QD 

0 

(F6) 

OS 

H 

(BLK) 

GESÙ 

■ 

l<4>l 

aa 

EH 

(F 7 ) 

m 

II 

(WHT) 

BOB 

(1 

«5>| 

QB 

E 

(F8) 

OD 

■ 

(RED) 

DIB 

S 

(<6>) 

QD 

■1 
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accia al tredici 


Anche il vostro 
Texas TI99 

può vincere al Totocalcio 


di Carlo Aceti 


accia al tredici è un pro¬ 
gramma che aiuta nella 
stesura della schedina 
del Totocalcio, soprattutto se non si 


è degli esperti in materia. Prima di 
passare al listato, spenderemo due 
parole per spiegare cosa fare dopo il 
Run. Anzitutto, dato che il pro¬ 
gramma per funzionare ha bisogno 
di alcuni dati, bisognerà dapprima 
procurarsi un giornale specializzato, 
dal quale si potranno attingere le 
informazioni desiderate. 

Dopo il Run vedremo l’intestazione, 
quindi apparirà il titolo, infine ver¬ 
ranno fatte le prime domande, di 
carattere generale, sulla schedina in 
questione. 

Una di queste domande, “Quante 
doppie max vuoi?”, necessita forse 



di un chiarimento. 

Con essa viene richiesto il numero 
massimo di doppie che desiderate; 
non è detto però che vi saranno date 
tutte: ne otterrete tante quante sa¬ 
ranno state elaborate dal computer; 
solo nel caso che esse siano più di 
quelle richieste, il computer provve- 
derà ad eliminare l’eccedenza. 

Se dopo l’ultima domanda, “Tutto 
OK.?”, la risposta è affermativa (ba¬ 
sta solo un Enter) lo schermo cam¬ 
bierà colore e si passerà alla terza 
pagina, ossia alle domande relative 
alle squadre che giocano in casa. 
Cioè: 


Listato 1. Il programma Totocalcio. 

10 CALL CLEAR :: CALL SCREEN(ll) 
:: PRINT " CACCIA AL 13": : : 

20 PRINT " PROGRAMMA PER TI-99/4 
A ** * • • 

30 PRINT " EXT.BASIC : : 

40 PRINT " REALIZZATO DA ACETI C 
ARLO": : : 

50 PRINT :: PRINT 
60 CALL RITARDO(1000) 

70 PRINT "$$$ BUONA FORTUNA 
$$$": : : 

80 CALL RITARDO(1000) 

90 PRINT : : PRINT : : PRINT 
100 CALL TITOLO 
1 1 0 CALL SCREEN (1 1 ) 

120 OPTION BASE 1 
130 DIM A$(26,2) ,RIS$(13,1) , B$( 1 
3,1):: A=4 :: K=0 :: AA=4 :: C=4 
: : CC = 4 : : Q=1 
140 CALL CLEAR 

150 DISPLAY AT(3,5):"RISPONDI AL 
LE DOMANDE" 

160 CALL LINO(5,2,30) : : CALL LIN 
0(10,2,30):: CALL LINO(14,2,30): 

: CALL LINO(l8,2,30) 

170 DISPLAY AT(6,5):"QUANTE SONO 
LE PAR-" :: DISPLAY AT(7,5):"TI 
TE CHE SI GIOCANO" :: DISPLAY AT 


(8,5) :"IN SERIE A,B,C1 ? >" 

180 ACCEPT AT(8,24)VALIDATE(NUME 
RIC)SIZE(2):TT :: ON WARNING NEX 
T : : TOT=TT 

190 DISPLAY AT(11,5):"QUANTE DOP 
PIE" :: DISPLAY AT ( 1 2,5) : "MASS J.M 
O VUOI?" :: ACCEPT AT(12,24)VALI 
DATE(NUMERIC)SIZE(2):X 
200 ON WARNING NEXT 
210 DISPLAY AT(15,5):"CHE NUMERO 
DI" :: DISPLAY AT(16,5):"PARTIT 
E SIAMO ?" :: ACCEPT AT(16,24)VA 
LIDATE(NUMERIC)SIZE(2):GIO :: Gl 
Ol=GIO 

220 ON WARNING NEXT 
230 GIO=GIO/l00 

240 DISPLAY AT(20,6):"TUTTO OK<S 
/N)?" :: ACCEPT AT(20,20)VALIDAT 
E("NS")SIZE(-1):G$ :: CALL CLEAR 

250 IF G$="N" OR G$="N" THEN GOT 
O 150 

260 CALL SCREEN(16) 

270 F2$="IN CASA" 

280 F3$="TRASF. " 

290 F$="VIT. PAR. SCO. DIF." 

300 FOR 1=1 TO TOT 

310 CALL LINO(3,l ,32) : : CALL LIN 

0(19,1 ,32) 

320 DISPLAY AT(1,2):F2$&" "&F$ 
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Caccia 
al tredici 


Seguito listato Totocalcio. 

330 CALL NUM 

340 ACCEPT AT(A,4)VALIDATE(UALPH 
A)SIZE(5) :A$(I,1) : : ACCEPT AT(A, 
10)VALIDATE(NUMERIC)SIZE(2):V 
350 ON WARNING NEXT 
360 ACCEPT AT(A,15)VALIDATE(NUME 
RIC)SIZE(2):P :: ACCEPT AT(A,20) 
VALIDATE(NUMERIC)SIZE(2):S 
370 ACCEPT AT(A,25)VALIDATE(NUME 
RIC)SIZE(2):D 

380 RI=(2*V) + (1*P)-(1 .l*S)-(0.3* 
D) 

390 IF GIOÌ>(V+P+S)THEN RI=(RI/( 

V+P+S))*GIOl 

400 ON WARNING NEXT 

410 A=A+1 :: IF A=17 THEN CALL H 

CHAR(4,1 , 32,480) : : A=4 

420 A$(I,2)=STR$(RI) 

430 NEXT I 

440 TOT=TOT+l 

450 IF TT=0 THEN TOT=l 

460 FOR I=TOT TO 13 

470 DISPLAY AT(1,2):F2$&" "&F$ 

480 CALL NUM 

490 CALL LINO(3,1 ,32) : : CALL LIN 
0(19,1 ,32) 

500 ACCEPT AT(A,4)VALIDATE(UALPH 
A)SIZE(5) :A$(I,1) : : ACCEPT AT(A, 
10)VALIDATE(NUMERIC)SIZE(2):W 
510 ACCEPT AT(A,15)VALIDATE(NUME 
RIC)SIZE(2):PP :: ACCEPT AT(A,20 
)VALIDATE(NUMERIC)SIZE(2) : SS 
520 ACCEPT AT(A,25)VALIDATE(NUME 
RIC)SIZE(2):DD 

530 A=A+1 :: IF A=17 THEN CALL H 

CHAR(4,1 ,32,480) : : A=4 

540 ON WARNING NEXT 

550 RI2=((VV*1) + (PP*.5)-(SS*.7) ) 

/(DD*.3) : : A$(1,2)=STR$(RI2) 

560 NEXT I 

570 IF TOTOO THEN TOT=TOT-l 
580 FOR 1=14 TO 13+TOT 
590 IF TT=0 THEN GOTO 710 
600 DISPLAY AT(1,2):F3$&" "&F$ 
610 CALL NUM 

620 ACCEPT AT(A,4)VALIDATE(UALPH 
A)SIZE(5) :A$(I,1) : : ACCEPT AT(A, 
10)VALIDATE(NUMERIC)SIZE(2):Vl 
630 ON WARNING NEXT 


640 ACCEPT AT(A,15)VALIDATE(NUME 
RIC)SIZE(2) : Pi :: ACCEPT AT(A,20 
)VALIDATE(NUMERIC)SIZE(2) :S1 
650 ACCEPT AT(A,25)VALIDATE(NUME 
RIC)SIZE(2)SDÌ 

660 RII = ( 2.1 * Vi )-*-(! .5*P1 ) - ( .9*S1 
)-(0.3*D1) 

670 IF GIOÌ>(Vi+P1+S1)THEN RIl=( 

Rii/(Vl+Pl+Sl))*GIOl 

680 ON WARNING NEXT 

690 A=A+1 :: A$(I,2)=STR$(RII) 

700 NEXT I 

710 IF TT=0 THEN TOT=l ELSE TOT= 
TOT+1 

720 FOR 1=13+TOT TO 26 

730 DISPLAY AT(1,2):F3$&" "&F$ 

740 CALL NUM 

750 ACCEPT AT(A,4)VALIDATE(UALPH 
A)SIZE(5) :A$(1,1) : : ACCEPT AT(A, 
10) VALIDATE (NUMERIC) SIZE (2) :W 
760 ACCEPT AT(A,15)VALIDATE(NUME 
RIC)SIZE(2):PP :: ACCEPT AT(A,20 
)VALIDATE(NUMERIC)SIZE(2) : SS 
770 ACCEPT AT(A,2 5)VALIDATE(NUME 
RIC)SIZE(2):DD 
780 ON WARNING NEXT 
790 RI 2=((VV*1) + (PP*.5)-(SS*.7)) 
/(DD*.3) : : A=A+1 :: A$(I,2)=STR$ 

(RI2) 

800 NEXT I 
810 CALL CLEAR 

820 CALL LINV(4,11 ,13) : : CALL LI 
NV(4,19,13) 

830 CALL LINO(3,l ,32) : : CALL LIN 
0(18,1 ,32) 

840 CALL TITF 
850 FOR 1=1 TO 13 
860 DISPLAY AT(C,1)SIZE(7):A$(I, 
1) 

870 C=C+1 :: NEXT I 

880 FOR D=14 TO 26 

890 DISPLAY AT(CC,10)SIZE(7):A$( 

D, 1 ) 

900 CC=CC+1 : : NEXT D 
910 FOR IN=1 TO 13 
920 SCI=VAL(A$(IN,2)) 

930 SC2=VAL(A$(IN+13,2)) 

940 GOSUB 1000 
950 NEXT IN 
960 GOSUB 1220 
970 GOSUB 1350 

980 CALL KEY(0,T,S) : : IF S = 0 THE 
N 980 :: IF T=67 THEN GOTO 110 
990 END 

1000 REM CONTEGGIO 
1010 IF SC1>SC2 THEN GOTO 1030 
1020 IF SC1<SC2 THEN GOTO 1100 
1030 IF (SCI-SC2)>=INT((.05+GIO) 
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Seguito listato Totocalcio. 

*SC2)THEN RI$="2" 

1040 IF (SC1-SC2)>=INT((.10+GIO) 
*SC2)THEN RI$="2X" 

1050 IF (SCI-SC2)>=INT((.19+GIO) 
*SC2)THEN RI $ = "X1" 

1060 IF (SCI -SC2)> = INT((.29+GIO) 
*SC2)THEN RI$ = "X" 

1070 IF (SCI-SC2)> = INT((.35+GIO) 
*SC2)THEN RI$="1X" 

1080 IF (SCI-SC2)>=INT((.45+GIO) 
*SC2)THEN RI $ = " 1" 

1090 GOTO 1160 

1100 IF (SC2-SC1)>=INT((.05+GIO) 
*SCl)THEN RI$="1" 

1110 IF (SC2-SC1)>=INT((.10+GIO) 
*SC1)THEN RI$="1X" 

1120 IF (SC2-SC1)>=INT((.19+GIO) 
*SC1)THEN RI$="X" 

1130 IF (SC2-SC1)>=INT((.29+GIO) 
*SC1)THEN RI$="Xl" 

1140 IF (SC2-SC1)>=INT((.35+GIO) 
*SC1)THEN RI$="2X" 

1150 IF (SC2-SC1)>=INT((.45+GIO) 
*SCl)THEN RI$="2" 

1160 IF LEN(RI$)=2 THEN K = K+1 
1170 IF K>X THEN RI$=SEG$(RI$,1, 

1)ELSE RI$=RI$ 

1180 RIS$(Q,1)=RI$ :: Q=Q+1 
1190 DISPLAY AT(AA,20)SIZE(2):RI 
$ 

1200 AA=AA+1 

1210 RETURN 

1220 REM CASUALITÀ' 

1230 AA=4 

1240 FOR 1=1 TO 13 

1250 RANDOMIZE 

1260 S=INT(4*RND)+1 

1270 ON S GOSUB 1290,1300,1310,1 

320 


1280 GOTO 1330 
1290 B$(I,1)="1" :: RETURN 
1300 B$(I,1)="1X" :: RETURN 
1310 B$ ( I,1 )=" 2" :: RETURN 
1320 B$ (I ,1 ) ="X" :: RETURN 
1330 DISPLAY AT(AA,23)SIZE(2):B$ 
( 1,1 ) 

1340 AA=AA+1 :: NEXT I :: RETURN 

1350 AA=4 

1360 REM MEDIA 

1370 RANDOMIZE 

1380 FOR 1=1 TO 13 

1390 MED=INT(2*RND)+1 

1400 ON MED GOSUB 1420,1430 

1410 GOTO 1440 

1 420 MED$=RIS$(I,1) : : RETURN 
1 430 MED$=B$(1,1) : : RETURN 
1 440 IF LEN(MED$)= 2 THEN W=W+1 
1450 IF W>X THEN MED$=SEG$(MED$, 
1,1)ELSE MED$=MED$ 

1460 DISPLAY AT(AA,26)SIZE(2) : ME 
D$ : : AA=AA+1 
1470 NEXT I 
1480 RETURN 

1490 SUB TITOLO :: CALL CLEAR :: 

CALL COLOR(2,5,5) 

1500 A5$=" + ++ + + +++" :: A6 

$="+++ ++++ ++++" 

1510 Al$="++++ + +++" :: A2$=" 

++++ +++++ +" : : A3$ = "+ + + + 

" :: A4$="+ + + +++" 

1 520 FOR 1 = 1 TO 4 : : DISPLAY AT( 
1 + 7,5) :SEG$(Al$,1*3-2,3) : : NEXT 
I 

1530 CALL SOUND(10,1000,4) 

1 540 FOR 1 = 1 TO 4 : : DISPLAY AT( 
1+7,9) :SEG$(A2$,1*3-2,3) : : NEXT 
I 

1550 CALL SOUND(10,1000,4) 

1 560 FOR 1 = 1 TO 4 : : DISPLAY AT( 


• il nome della squadra; 

• le vittorie in casa; 

• i pareggi in casa; 

• le sconfitte in casa; 

• coefficiente di difficoltà (in rela¬ 
zione all’abilità della squadra avver¬ 
saria). 

Quest’ultima domanda costituisce 
un tocco personale riservato ai più 
esperti. Potete “penalizzare” una 
squadra assegnandole un coefficien¬ 
te di difficoltà, variabile da 0 a 99, 
nell’affrontare la squadra avversa¬ 
ria. 

Dopo le tredici squadre che giocano 
in casa, automaticamente si passerà 
a quelle che giocano in trasferta. 


Due precisazioni: 

• nel listato il nome della squadra 
non potrà essere lungo più di 5 lette¬ 
re; 

• quando scrivete 11 nome delle 
squadre, ricordate che il computer 
confronterà la prima delle squadre 
che giocano in casa con la prima di 
quelle che giocano in trasferta, pro¬ 
cedendo in modo analogo per tredici 
volte. Sarebbe perciò consigliabile 
seguire l’ordine indicato dalla sche¬ 
dina. 

L’ultima pagina è completamente 
gestita dal nostro TI99. 

Vedremo apparire i nomi delle squa¬ 
dre che si affrontano e tre tipi di 


risultati: 

1 ) logico: ossia il logico risultato sca¬ 
turito dai dati che sono stati immes¬ 
si; 

2) random: cioè scelta casuale ad o- 
pera del computer; 

3) misto: dove casualmente vengono 
mischiati i due tipi di risultati prece¬ 
denti, nella speranza di poter vincere 
più facilmente. 

Grazie ad un key, il video rimane 
fermo per tutto il tempo che voglia¬ 
mo: premendo la C maiuscola torne¬ 
remo alle prime domande; premen¬ 
do qualsiasi altro tasto fermeremo il 
programma. 

Ed ora il listato. 
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Caccia 
al tredici 


Seguito listato Totocalcio. 


1 + 7, 

T 

13) :SEG$(Al$,1*3-2,3): : 

NEXT 

1 

1 570 

CALL SOUfoD(10,1000,4) 


1 580 

FOR 1 = 1 TO 4 : : DISPLAY 

AT ( 

1 + 7, 

J 

1 7) : SEG$ (Al $ , I*3-2,3) : : 

NEXT 

1 590 

CALL SOUND(10,1000,4) 


1 600 

FOR 1 = 1 TO 4 : : DISPLAY 

AT ( 

1 + 7, 

T 

21 ) :SEG$(A3$,I * 3-2,3) : : 

NEXT 

1610 

CALL SOUND(1 0,1 000,4) 


1 620 

FOR 1 = 1 TO 4 : : DISPLAY 

AT ( 

1+7, 

T 

23) :SEG$(A2$,1*3-2,3) : : 

NEXT 

1 

1 630 

CALL SOUND (10,1000,4) 


1 640 

FOR 1 = 1 TO 4 : : DISPLAY 

AT ( 

1 + 1 3 

J 

,7):SEG$(A2$,l*3-2,3) : : 

NEXT 

1 650 

CALL SOUND(10,1000,4) 


1 660 

FOR 1 = 1 TO 4 : : DISPLAY 

AT ( 

1 + 1 3 

,11) :SEG$(A4$,I*3-2,3) : : 

NEX 

T I 

1 670 

CALL SOUND(10,1000,4) 


1 680 

FOR 1 = 1 TO 5 : : DISPLAY 

AT ( 

1 + 1 2 

,16) :SEG$(A5$,1*3-2,3) : : 

NEX 

T I 

1 690 

CALL SOUND(10,1000,4) 


1 700 

FOR 1 = 1 TO 5 : : DISPLAY 

AT ( 

1 + 12 

,21 ) : SEG$ (A6$ , 1*3-2 , 3) : : 

NEX 

T I 

1 71 0 

CALL SOUND (1 0,1 000,4) 



10-90 - Prima pagina (intestazione). 
100 - Richiamo programma (titolo). 
120-140 - Inizializzazione. 

160-260 - Domande preliminari. 
320-450 - Loop per le squadre di 
casa (A, B, Cl). 

480-570 - Loop per le squadre di 
casa (C2). 

590-710 - Loop per le squadre in 
trasferta (A, B, Cl). 

730-800 - Loop per le squadre in 
trasferta (C2). 

850-980 - Ultima pagina con i risul¬ 
tati. 

1000-1210 - Elaborazione dati con 
verifica max di doppie. 

1220-1340 - Parte random. 
1360-1470 - Parte mista (logica + 


1 720 CALL RITARDO(1 000) : : CALL C 

LEAR : : CALL CHARSET 

1730 SUBEND 

1740 SUB RITARDO(RIT) 

1750 FOR 1=1 TO RIT :: NEXT I 

1760 SUBEND 

1770 SUB LINO( R, C ,RP) 

1780 CALL CHAR(129,"FF") 

1 790 CALL HCHAR(R,C,129,RP) : : CA 
LL COLOR (13,7,1) 

1800 SUBEND 
1 810 SUB LINV(R,C,RP) 

1 820 CALL CHAR(1 28,"404040404040 
4040"):: CALL COLOR(13,7,1) 

1830 CALL VCHAR(R,C,128,RP) 

1840 SUBEND 
1850 SUB TITF 

1860 DISPLAY AT(2,2):"IN CASA F. 
CASA" 

1870 DISPLAY AT(2,20):"1"&" 

2"&" "&"3" 

1880 DISPLAY AT(19,2):"1=schedin 
a secondo logica" 

1890 DISPLAY AT(20,2):"2=schedin 
a casuale" 

1900 DISPLAY AT(21,2):"3=schedin 
a mista" 

1910 DISPLAY AT(23,2):"premi un 
tasto per finire" 

1920 SUBEND 
1930 SUB NUM 
1 940 CL=2 : : UN=1 
1 950 FOR RG = 4 TO 12 STEP 2 : : DI 
SPLAY AT(RG,2)SIZE(2) : UN :: UN=U 
N+2 : : NEXT RG 

1960 FOR RG=14 TO 16 STEP 2 :: D 
ISPLAY AT(RG,1)SIZE(3) : UN :: UN= 
UN+2 : : NEXT RG 
1970 SUBEND 


B$ (13,1) - Stringa che contiene i 
risultati random da stampare. 

RIS$ (Q,l) - Stringa che contiene i 
risultati. 

MED$ (1,1) - Stringa con i risultati 
della media da stampare. 

RI2 - Somma dati della C2. 

RI, RI 1 - Somma dati per (A, B, C1 ) 
SCI, SC2 - Contengono i dati da 
confrontare. 

TT, TOT - Totale delle squadre che 
giocano in (A, B, Cl) 

GIO, GIOÌ - Partite giocate. 

X, A, K, AA, C, CC, Q - Contatori. 

S, D, VI, PI, SI, VV, DD - 
Contengono i dati delle squadre. 


random). 

1490-1730 - Subroutine titolo prin¬ 
cipale. 

1740-1760 - Subroutine ritardo. 
1770-1840 - Subroutine linee oriz¬ 
zontali e verticali. 

1850-1920 - Subroutine intestazioni 
ultima pagina. 

1930-1970 - Subroutine numeri pro¬ 
gressivi della II e III pagina. 


Stringhe e variabili 

A$ (26,1) - Stringa che contiene i 
nomi delle squadre. 

RI$ (13,1) - Stringa che contiene i 
risultati da stampare. 


V, P, 
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accia alla coppia 
per Apple II, C 64 e C 16 



Un divertente aiuto 
per l’esercizio 
della memoria 


di Claudio Poma 


L a naturale evoluzione della 
rivoluzione informatica sta 
facendo sentire i suoi effetti 
anche sul mondo del software e in 
particolare dei videogiochi, finora 
incontrastati dominatori. L’interes¬ 
se dell’acquirente si va spostando 
verso applicazioni diverse, forse me¬ 
no colorate e vivaci, ma senz’altro 
più disponibili a soluzioni personali. 
Con i giochi di azione in ribasso e 
quelli gestionali in stallo (ci riferia¬ 
mo alle applicazioni casalinghe!) 
forse più per pregiudizio che per una 
loro presunta scarsa validità appli¬ 
cativa, i programmi oggi più richie¬ 
sti sono le avventure, i giochi con più 
partecipanti (chiamarli “di società” 
mi sembra quantomeno limitativo) e 
i didattico-educativi. 

Il successo di questi, al di là delle 
differenze che li contraddistinguo¬ 
no, può essere ricercato in un punto 
comune alle diverse categorie (da 
non considerare in modo poi tanto 
“categorico”, dato che una avventu¬ 
ra può essere costruita in modo da 
aiutare l’apprendimento di ben defi¬ 
niti argomenti, mentre un program¬ 
ma didattico può essere “giocato” 
da più persone contemporaneamen¬ 
te) rappresentato dall’interattività: 
non più solo joystick e numeri, ma la 
possibilità di poter intervenire atti¬ 
vamente nel modo a noi più consono 
(lo scambio di messaggi nel linguag¬ 
gio che utilizziamo tutti i giorni) e, 
nei migliori prodotti, in una forma 
molto personalizzata. 


L’argomento del programma 

Dopo questa breve introduzione 
passiamo a quanto presentato in 
queste pagine. 

Il programma, in varie versioni per 
diverse macchine, dopo una breve 
introduzione con accompagnamen¬ 
to musicale sul ritornello di Yellow 
Submarine chiede i nomi dei parteci¬ 
panti (da 1 a 8, ma una minima mo¬ 
difica alle variabili permette il supe¬ 
ramento di tale limite) e quindi pro¬ 
pone la schermata centrale sulla 
quale si svolgerà tutta la parte cen¬ 
trale del gioco. 

Questa fase è caratterizzata da una 
griglia di 7 per 6 quadrati di lato, e 
nella zona dello schermo libera ci 
sono i nomi dei partecipanti con i 
relativi punteggi. 

Il lampeggio del nome, o l’inverso 
nel C 64, indica il turno delle gioca¬ 
te, mentre un piccolo cursore nel¬ 
l’angolo in alto a sinistra del primo 
quadrato della griglia aspetta di es¬ 
sere mosso in sù e giù e a destra e 


sinistra con i tasti delle freccine. 

Per vedere cosa c’è nascosto in un 
particolare quadrato ci si deve por¬ 
tare con il cursore e quindi premere 
il tasto Return: sen due soli tentativi 
si riesce a scoprire una coppia di 
lettere dell’alfabeto si riceve un pun¬ 
teggio accompagnato da una musi¬ 
chetta di sottofondo e si può conti¬ 
nuare con un nuovo tentativo men¬ 
tre la coppia scoperta rimane fissata 
sullo schermo, altrimenti un altro 
nome lampeggia e la mano passa al 
giocatore successivo mentre i due 
caratteri appena scoperti scompaio¬ 
no all’annullamento dei loro pixel. 

Scoperte tutte le 21 coppie a di¬ 
sposizione, Yellow Submarine an¬ 
nuncia l’imminente classifica finale 
a conclusione di un impegno meno 
risibile di quel che può sembrare da 
queste righe. 


Il listato 

Nonostante alcune profonde dif¬ 
ferenze tra le macchine presentate, i 
listati sono identici per quanto ri¬ 
guarda la numerazione delle linee e il 
relativo significato (alcune lievi dif¬ 
ferenze in questo senso sono dovute 
al limite di 80 caratteri per linea dei 
Commodore contro i 255 dell’Ap¬ 
ple) al fine di permettere un confron¬ 
to comparativo fra gli stessi da parte 
di chi fosse interessato alla conver¬ 
sione dei programmi da una marca 
all’altra. 

Questo lavoro permette anche di 
trarre alcune considerazioni circa 
l’incompatibilità tra i vecchi e i nuo¬ 
vi modelli della Commodore. 

La differenza esiste, non ci sono 
dubbi, ma pur essendo sostanziale 
non è totale bensi a scompartimenti 
stagni: la grafica e il suono ricorrono 
a soluzioni completamente diverse e 
l’unico rimedio è lo sviluppo di una 
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Caccia alla coppia 
per Apple II, 
_ C 64 e C 16 


Listato 1. Tavola delle forme per Apple. 

Questi dati sono necessari per la definizione delle 
lettere in corsivo. 

Accedere al Monitor battendo Cali-151, quindi bat¬ 
tere la presente tabella mettendo al posto del meno 
(-) i due punti (:). 

Terminata la copiatura tornare al BASIC premendo 
Ctrl-C e Return e, dopo aver preparato il dischetto 
dove verrà salvato anche il programma in BASIC 
Caccia alla coppia, digitare Bsave Alfabeto, 
A36864.L456. 


* 


9000- 

15 

00 

2C 

0 0 

3C 

00 

56 

0 0 

90 0 8- 

61 

00 

77 

00 

87 

00 

A0 

00 

9010- 

BA 

00 

D4 

00 

E1 

00 

F8 

00 

9018- 

18 

01 

2E 

01 

3B 

01 

60 

01 

9020- 

73 

01 

81 

01 

8 E 

01 

9A 

01 

9028- 

A9 

01 

B5 

01 

1E 

E7 

24 

24 

9030- 

1C 

1C 

3F 

F7 

1E 

36 

76 

0E 

9033- 

2D 

65 

0C 

00 

0C 

0C 

0C 

0C 

90 40- 

00 

0C 

0C 

0C 

24 

E4 

3F 

1E 

9043- 

36 

36 

36 

36 

36 

36 

76 

2D 

9050- 

0C 

24 

24 

2C 

2D 

00 

F0 

3F 

9053- 

1F 

0C 

24 

24 

64 

2B 

0E 

0E 

9060- 

00 

1C 

1C 

3F 

F7 

1E 

36 

76 

90Ó8- 

0E 

2D 

65 

75 

65 

DC 

23 

24 

90 70- 

24 

24 

24 

24 

24 

04 

00 

0C 

9078- 

65 

0C 

0C 

0C 

24 

1C 

F7 

1E 

9030- 

36 

76 

0E 

0E 

65 

0C 

00 

0C 

9083- 

0C 

0C 

0C 

0C 

0C 

24 

1C 

F7 

9090- 

36 

36 

36 

36 

36 

36 

F6 

E7 


9098- 

24 

00 

00 

00 

00 

00 

00 

00 

90A0- 

1E 

1E 

1E 

F7 

1E 

36 

76 

65 

90A3- 

00 

24 

24 

24 

24 

24 

E4 

10 

90B0- 

3F 

1E 

1E 

36 

76 

0E 

20 

00 

90B3- 

00 

00 

00 

0 0 

00 

00 

00 

00 

9000- 

00 

24 

E4 

3F 

1E 

36 

36 

36 

9003- 

36 

36 

36 

36 

40 

21 

24 

24 

90 00- 

10 

F7 

1E 

00 

16 

36 

F6 

1E 

90 08- 

F6 

00 

40 

30 

76 

20 

00 

00 

90E0- 

0 0 

00 

00 

00 

00 

00 

00 

00 

90E8- 

24 

E4 

3F 

1E 

36 

36 

36 

36 

90F0- 

36 

36 

76 

20 

00 

00 

00 

00 

90F8- 

64 

75 

36 

36 

36 

05 

30 

30 

9100- 

80 

30 

80 

30 

28 

0E 

36 

36 

9108- 

36 

05 

80 

80 

30 

30 

80 

30 

91 10- 

28 

0E 

36 

36 

36 

65 

00 

00 

91 13- 

22 

00 

20 

0E 

36 

36 

36 

05 

9120- 

80 

80 

30 

80 

80 

30 

28 

75 

9128- 

36 

36 

76 

65 

00 

00 

F2 

36 

9130- 

36 

1E 

1E 

3F 

10 

10 

24 

64 

9138- 

00 

2D 

0 E 

0E 

00 

00 

00 

00 

9140- 

00 

00 

36 

36 

36 

36 

36 

36 

91 43- 

36 

2E 

80 

80 

30 

80 

80 

80 

91 50- 

80 

80 

80 

30 

80 

30 

80 

80 

9153- 

00 

75 

36 

36 

0E 

65 

00 

00 

9160- 

1E 

1E 

3F 

E7 

10 

24 

64 

00 

9168- 

20 

75 

0 E 

36 

36 

36 

36 

36 

91 70- 

36 

36 

00 

00 

20 

20 

35 

1E 

9178- 

1E 

1E 

1E 

76 

20 

00 

00 

00 

9130- 

00 

62 

00 

00 

0 E 

0E 

0E 

36 

91 88- 

Fó 

1E 

3F 

E7 

10 

00 

3F 

27 

9190- 

34 

36 

36 

36 

36 

36 

0E 

65 

9198- 

0 0 

00 

36 

36 

36 

0E 

20 

65 

91A0- 

24 

24 

24 

95 

92 

12 

65 

00 

91A8- 

00 

64 

75 

36 

36 

76 

65 

24 

91B0- 

24 

24 

20 

05 

00 

20 

2D 

20 

91BS- 

F5 

1E 

1E 

3F 

0E 

20 

OE 

F3 

9100- 

1E 

2D 

20 

20 

05 

00 

00 

00 


nuova versione, ma il BASIC essen¬ 
ziale e la gestione dello schermo so¬ 
no immutati (a parte il Kbyte utiliz¬ 
zato allo scopo: a partire dal 1.024 
per il C 64 e dal 3.072 per il C 16), per 
cui, se non è possibile scambiare i 
prodotti già preconfezionati, è inve¬ 
ce abbastanza semplice adattare i 
programmi listabili: se si confronta¬ 
no le versioni qui proposte per il C 
16 e il C 64 senza sprite si può notare 
come le uniche linee riportanti dati 
diversi siano quelle legate alla routi¬ 
ne musicale e poco più. 

Alcune note sulle diverse versioni 

Per Apple si è fatto ricorso alla 
pagina grafica in alta risoluzione che 


ha permesso la definizione dei carat¬ 
teri in corsivo. Questi sono memo¬ 
rizzati nel listato Tavola delle forme 
(listato 1 ) e per salvarli su dischetto è 
necessario accedere al Monitor 
(Cali-151) e quindi, iniziando a digi¬ 
tare 9000: 15 00 2C ecc. si devono 
immettere tutti i valori, nessuno e- 
scluso, pena la mancata definizione 
dei caratteri desiderati. Terminata 
l’operazione e controllati eventuali 
errori si deve tornare in BASIC 
(Ctrl-C e Return) per battere: 

BSAVE ALFABETO,A36864,L456 
(decimali) 

o: 

BSAVE 

ALFABETO,A$9000,L$1C7 (esa- 


decimali con $) 

avendo cura di aver predisposto il 
dischetto sul quale si intende memo¬ 
rizzare anche il programma in BA¬ 
SIC del listato 2. Questo è importan¬ 
te in quanto altrimenti la linea 40 
darebbe un risultato nullo, bloccan¬ 
do, di conseguenza, l’esecuzione del 
programma. 

E’ stata fatta la scelta della routine 
separata dal corpo del programma 
per permettere l’utilizzo di tali figure 
in qualsiasi altro programma senza 
richiedere la trascrizione di tutti i 
dati necessari. 

Chi non gradisse questa soluzione 
dovrà tradurre tutti i numeri esade- 
cimali nei rispettivi decimali e met¬ 
terli in linee Data da leggere oppor- 
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Listato 2. Caccia alla coppia, versione Apple. 


4 HCOLOR= 3 

5 DIM F0<6,5) ,CA<21 ) ,0(21 > ,P<21 ) , 

KJ(21> 

6 READ A*: IF A$ < > “+“ THEN 6 

7 FOR T = 770 TO 792: READ A: POKE 

T,A ! NEXT 

8 FOR T = 1 TO 21:KJ(T> = 1: NEXT 

9 UIK 1 ) = 2 :UU(2) = 1.4 

10 HOME : SCALE= 1 
20 HIMEM: 36860 

25 IF GQ = 1 THEN 45 
30 POKE 232,0 : POKE 233,144 
40 PRINT CHR* ( 4 ) "BLOAD ALFABETO 
,A36864" 

45 GQ = 0s RESTORE 
50 READ A*: IF A* < > THEN 5 

0 

60 FOR T = 1 TO 21 ! READ 0<T),P(T 
>: NEXT 

70 FOR T = 1 TO 8:PU(T) = 0:RE(T> 

= - 1:RE*(T) = "": NEXT 

80 KK = 0 

100 X = 10:Y = 40: HGR 
110 FOR T = 1 TO 21 
115 X = X + 20 : IF X > 235 THEN X = 
40 : Y = 90 

120 DRAW T AT X + 0<T) ,Y + P(T> 

130 NEXT 

140 HPLOT 10,30 TO 270,30 TO 270, 
120 TO 10,120 TO 10,30 
145 FOR T = 1 TO 21:CA(T) = 0: NEXT 

147 GOSUB 1400 

150 FOR T = 0 TO 6: FOR R = 0 TO 
5 

160 CA = INT ( RND (1) * 21 + 1): 
CACCA) = CACCA) + 1 : IF CACCA 
) > 2 THEN 160 


170 

FO(T,R) = CA: NEXT R,T 


200 

UTAB 21: INPUT "IN QUANTI 
CHIAMO ? "; Gl 

Gl 0 

210 

IF Gl < 1 OR Gl >8 THEN 

CALL 


- 912: GOTO 200 


220 

FOR T = 1 TO Gl 


230 

PRINT "Nome del giocatore 
T;: INPUT * ’;GI*(T> 

N. " 

240 

IF LEN <GI*(T)> > 12 THEN 

PRINT 


“Nome troppo lungo, Max.12 

“ : 


GOTO 230 


250 

NEXT 


500 

HOME : HGR : HCOLOR= 3 


510 

FOR X = 50 TO 225 STEP 25 


520 

HPLOT X,5 TO X,155 


530 

NEXT 


540 

FOR Y = 5 TO 155 STEP 25 


550 

HPLOT 50.Y TO 225,Y 


560 

NEXT 


600 

V = 21:H = 1 


61 0 

FOR T = 1 TO Gl 



620 U(T) = U:H(T) = H 
625 UTAB U(T>: HTAB HCT): PRINT G 
I$(T) ; : HTAB (HCT) + 16 - LEN 
( STR* (PU(T)>)>: PRINT PUCT) 

630 H= H + 20: IF H > 21 THEN H = 

1 = V + 1 

640 NEXT 

650 CA = INT ( RND (1) * Gl + 1) 

700 VTAB V(CA): HTAB HCCA): FLASH 
: PRINT GIACCA); 

705 NORMAL 

710 X = 0 :Y = 0:A = 0:B = 0 

720 Q = 52 + X * 25 :W = 7 + 25 # Y 

730 HPLOT Q,W TO Q ♦ 3,W TO Q ♦ 3 
,W ♦ 3 TO Q,W + 3 TO Q,W 

734 POKE - 16368,0 

735 FOR T = 1 TO 200: NEXT 

740 rr = PEEK ( - 16384) - 128: IF 
RR = 13 THEN 900 

750 IF RR = 11 AND Y > 0 THEN B = 

- 1 : GOTO 790 

760 IF RR = 10 AND Y < 5 THEN B = 

1 : GOTO 790 

770 IF RR = 8 AND X > 0 THEN A = 

- 1 : GOTO 790 

780 IF RR = 21 AND X C 6 THEN A = 

1 

790 HCOLOR= 0: HPLOT Q,W TO Q + 3 

,W TO Q + 3,LI + 3 TO Q,W + 3 TO 
Q,W: HCOLOR= 3 

800 X = X + A:Y = Y + B:A = 0:B = 

0 

810 GOTO 720 

9O0 IF FI = 1 AND (C = X AND D = 

Y> THEN 750 

905 IF FOCX.Y) = 0 THEN 750 
910 FI = FI + 1sFI<FI) = FOCX.Y):C 
(FI) = Q:D(FI) = W: IF FI = 1 

THEN C = X :D = Y 

913 KJCFI(FI)) = KJ(FI(FI)) + .05 

914 TY(4 + FI) = TY(2 + FY):TY(2 + 

FI> = TY(FI):TY(FI) = FI(FI> 

915 C(FI) = C(FI) + 0(FI(FI)>:D(FI 

) = D(FI) + PC FI(FI> > 

920 DRAW FI(FI) AT C(FI),D(FI) 

930 IF FI < 2 THEN 750 
950 IF FI(1) ( > FI(2) THEN FOR 

T = 1 TO 3000: NEXT : GOTO 11 
00 

960 GOTO 1040 

970 FOR T = 0 TO 6: FOR R = 0 TO 
5 

9S0 IF FO(T,R) = FI(1> THEN FO(T, 

R) = 0 

990 NEXT R,T 

1000 PIJ = INT <(41 - KK) / KJ(FI ( 
FI))) 

1010 FOR T = 3 TO 6: IF TY(T) = F 
I ( FI > THEN PII = INT CPU / UU 
< INT (T / 2.5)) + 1 ) 

1015 NEXT 

1020 PU(CA) = PU(CA) + PU 

1030 UTAB U(CA): HTAB (HCCA) + 16 

- LEN < STR* <PU<CA)))>: PRINT 
PU(CA); 

1035 GOTO 1090 
1040 RESTORE 

1050 READ A*: IF A* < > “A" THEN 

1050 
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tunamente come spiegato nell’arti¬ 
colo Grafica e Joystick per Apple ap¬ 
parso sul n. 24 di Personal Software. 
Per il C 16 (listato 3), non è preso in 
considerazione il ricorso all’alta ri¬ 
soluzione a causa dei problemi che 
questo comporta nei confronti della 
memoria: infatti dei 12 Kbyte gesti¬ 
bili dall’utente, ben 10 vengono 
“mangiati” dall’Hires per cui non 
rimane abbastanza spazio per l’or¬ 
ganizzazione di programmi suffi¬ 
cientemente complessi. Ma ci ritor¬ 
neremo. La versione per C 64 è inve¬ 
ce presente nel listato 4. 

Come si può facilmente vedere, 
mancano le istruzioni per il gioco. 
Non si tratta di una distrazione, ma 
di una scelta dovuta alla presenta¬ 


zione di diversi listati per non au¬ 
mentare lo spazio occupato con lun¬ 
ghe liste di Print identiche. Per chi 
avesse delle difficoltà nello sviluppo 
personale di questa operazione, ecco 
un esempio valido per tutte le versio¬ 
ni (basta aggiungere queste linee al 
listato della propria macchina): 

• 1 Gosub 2500 

• 2500 Rem Istruzioni 

• 2510 ? “Il gioco consiste nello sco¬ 
prire le coppie di lettere”; 

• 2515 ? “nascoste dietro una gri¬ 
glia”. 

• 2520 ? “Il giocatore di turno è 
indicato con il proprio nome in rilie¬ 
vo”. 

• 2530 ? “Per muovere il piccolo cur¬ 
sore lampeggiante usare i tasti con le 


frecce”. 

• 2540 ? “Per vedere cosa c’è nel 
riquadro occupato dal cursore pre¬ 
mere Return”. 

• 2550 ? “Nel caso si scopra una 
coppia si riceverà un punteggio e si 
terrà la mano”; 

• 2560 ? “altrimenti il gioco passa al 
giocatore successivo”. 

• 2570 ? “Alla fine verrà stilata una 
classifica in relazione ai punteggi 
conseguiti”. 

• 2580 ?:? “Premi Return per conti¬ 
nuare”. 

• 2590 InputA$:Return. 

Linea per linea 

Fino alla linea 25 si hanno il di- 


Seguito Caccia alla coppia per Apple. 


1060 FOR T = 1 TO 6: READ A1,A2: POKE 
768,Al: POKE 769 , A2: CALL 770 
: NEXT 

1070 GOTO 970 

1090 KK = KK + 1: HCOLOR= 0: GOTO 
1 105 

1100 HCOLOR= 0: DRAW FI<1) AT CC1 
),D(1>: DRAW FI(2) AT C<2),D( 

2 ) 

1105 HPLOT G,W TO Q + 3,W TO Q t 
3,W + 3 TO Q,W + 3 TO Q,W 
'1110 VTAB VCCA): HTAB HCCA): PRINT 
GI $ C CA ) ; 

1120 HCOLOR= 3: IF FI(l) = FI(2) THEN 
1140 

1130 CA = CA + 1 : IF CA > Gl THEN 
CA = 1 

1140 FI = 0:PU = 0 

1150 IF KK = 21 THEN 1190 

1160 GOTO 700 

1190 FOR T = 1 TO GI:RE(GI) = - 

1 : NEXT 

1200 FOR T = 1 TO Gl 

1210 FOR TI = 1 TO Gl - 1 

1220 IF PU<T) > RECTI) THEN 1250 

1230 NEXT TI 

1240 GOTO 1270 

1250 FOR T2 =61-1 TO TI STEP - 
1 

1255 RECT2 + 1) = RECT2):RE$CT2 + 

1) = RE*CT2) 

1260 NEXT T2 

1270 RECTI) = PUCT):RE$CTI) = GI*C 
T) 

1280 NEXT T 
1290 HOME : TEXT 


1300 UTA6 10 - Gl: HTAB 12: FLASH 

: PRINT "CLASSIFICA FINALE": NORMAL 
1310 K = 12 + Gl: GOSUB 1400 
1320 FOR T = Gl TO 1 STEP - 1 
1330 VTAB K: HTAB 11: PRINT T") 

11 RE$CT) ; : HTAB C30 - LEN C STR* 
CRECT)))): PRINT RECT) 

1340 K = K - 2: FOR TI = 1 TO 500: 

NEXT 
1350 NEXT 

1360 VTAB 24: PRINT "Volete gioca 
re ancora ? CS/N) 

1370 GET A*: IF A* = "N" THEN HOME 
: END 

1380 IF A$ = "S" THEN GQ = 1 : GOTO 
8 

1390 GOTO 1370 
1406 RESTORE 

1410 READ A»: IF A* < > "A" THEN 

1410 

1420 READ Al,A2: IF Al = 0 THEN 1 
450 

1430 POKE 768,Al: POKE 769,A2: CALL 
770 

1440 GOTO 1420 
1450 RETURN 

2000 DATA *,18,15,8,17,14,15,14,1 
4,9,17,9,15,19,9,8,17,12,7,8, 
17,8,12,7,12,16,7,7,11,15,11, 

9,11,9,11,14,9,10,9,7,il,9,8 
2010 DATA +,173,48,192,136,268,5, 

206,1,3,240,9,202,208,245,174 
,0,3,76,2,3,96,0,0 
2020 DATA A,102,180,86,255,162,64 
,115,128,102,64,128,255,102,1 
28,102,64,115,128,128,64,152, 

255,152,64,102,128,102,64,115 
,255 

2030 DATA 0,0 
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Listato 3. Caccia alla coppia, versione C 16. 

5 DXMFO(6,5), CA ( 21 ),KJ(26),W(21) 

6 RI$="-{ 2 SPAZlM 2 SPAZl}-{ 2 SPAZI} 

-{ 2 SPAZI}-{ 2 SPAZI}-{ 2 SPAZI}- 

T 2 SPAZI}-":R2$="[<Q>]{ 2 *} + { 2 *} + 

{ 2 *} + { 2 *} + { 2 *} + { 2 *} + { 2 *}T<W>] 

tl 

8 F0RT=1T026:KJ(T)=1 :NEXT 

9 UU (1)=2:UU(2)=1.4 

10 PRINT"{CLR}" 

25 IFGQ=1THEN45 

29 R1JSTORE 

30 READA$: IFA$< >"L"THEN30 
40 F0RT=lT021:READW(T):NEXT 
45 GQ=0:RESTORE 

70 FORT=1T08:PU(T)=0:RE(T)=-l:RE$(T)="":N 
EXT 

80 KK=0 

100 PRINT"{CLR}{ 5 GIU'}"CHR$(14) 

110 PRINTTAB(2)"[<A>){ 33 *}[<S>]":PRINTT 
AB(2)"-"SPC(33)"-" 

120 PRINTTAB(2)"-{ 3 SPAZI}A{ 2 SPAZl}B 
{ 2 SPAZI}C{ 2 SPAZI}D{ 2 SPAZljE 

{ 2 SPAZI} F { 2 SPAZI}G{ 2 SPAZl}H 

{ 2 SPAZI}I{ 2 SPAZI}L{ 2 SPAZI}-" 

130 PRINTTAB ( 2) "-"SPC(33) : PRINTTAB (2) " 

- M{ 2 SPAZlTN{ 2 SPAZI}0{ 2 SPAZl}P 
T 2 SPAZI}Q{ 2 SPAZI}R{ 2 SPAZlJS 

{ 2 SPAZI}T{ 2 SPAZI}U{ 2 SPAZI}V 

{ 2 SPAZI}Z 

140 PRINT"{ 2 SPAZI}-"SPC(33)"-":PRINT" 

{ 2 SPAZI}[<Z>]{ 33 *}[<X>}" 

145 FORT=lT021:CA(T)=0 :NEXT 

147 GOSUBl400 

150 FORT=0TO6:FORR=0TO5 

160 CA= INT(RND(1)*21+1) :CA(CA)=CA(CA) +1:1 
FCA(CA) >2THENl60 _ 

170 FO(T,R)=W(CA):NEXTR,T 

200 PRINT:PRINT:INPUT"IN QUANTI GIOCHIAMO 
" ; Gl 

210 IFGI<1ORG>8THENPRINT"{ 2 SU}":GOTO200 
220 FORT=1TOGI 

230 PRINT"NOME DEL GIOCATORE N."T;:INPUTG 
1$ (T) 

240 IFLEN(GI$(T))>12THENPRINT"NOME TROPPO 
LUNGO, MAX.12 ":GOTO230 
250 NEXT 
500 PRINT"{CLR}" 

510 PRINTTAB(18)"[<A>]{ 2 *}[<R>]{ 2 *} 

[<R>]{ 2 *}[<R>){ 2 *}{<R>]{ 2 *} 

[<R>]{ 2 *}[<R>]{ 2 *}[<S>]" 

520 FORT=1T05:FORK=lT02:PRINTTAB(18)RI$:N 
EXT:PRINTTAB(18)R2$:NEXT 
530 FORT=lT02:PRINTTAB(18)RI $ :NEXT 
540 PRINTTAB(18)"[<Z>] { 2 *}[<E>]{ 2 *} 

[ <E> J { 2 *}[<E>]{ 2 Ml<E>] { 2 *} 

[<E>]{ 2 *}[<E>]{ 2 *}[<X>]" 

600 PRINT"{HOME}" 

610 FORT=1TOGI 

620 PRINT:PRINTGI$(T);SPC(16-LEN(STR$(PU( 


T) ) ) -LEN(GI$(T))) ;PU(T) 

640 NEXT 

650 CA=INT(RND(1)*GI + 1 ) 

700 Z$="{HOME}":FORT=lTOCA*2:Z$=Z$+" 

{GIU 1 }":NEXT:PRINTZ$;"{RVS}{FLASH ON} 
" ;GI$(CA) ;" {FLASH OFHOFF}" 

710 X=0:Y=0:A=0:B=0 

720 POKE3171+X*3+Y*40*3,126 

735 FORT=lTO50:NEXT 

740 GETA$:IFA$=CHR$(13)THEN900 

750 IFA$="{SU}"ANDY>0THENB=-1:GOTO790 

760 IFA$="{GIU'}"ANDY<5THENB=1:GOTO790 

770 IFA$="{SIN}"ANDX>0THENA=-1:GOTO790 

780 IFA$="{DES}"ANDX<6THENA=1 

790 POKE3171+X*3+Y*40*3,32 

800 X=X+A:Y=Y+B:A=0:B=0 

810 GOTO 720 

900 IFFI = 1 AND(C=XANDD = Y)THEN750 
905 IFFO(X,Y)=0THEN750 

910 FI=FI + 1: FI(FI)=FO(X,Y) :C(FI)=X:D(FI) = 
Y:IFFI=1THENC=X:D=Y 

913 KJ(FI(FI))=KJ(FI(FI))+.05 

914 TY(4+FI)=TY(2+FI):TY(2+FI)=TY(FI):TY( 
FI)=FI(FI) 

920 POKE3212+C(FI)*3+D(FI)*40*3,FI (FI) 

930 IFFI<2THEN750 

950 IFFI (1 ) OFI ( 2 ) THENFORT= 1TO 3 0 0 0 : NEXT : G 
OTOl100 
960 GOTOl040 
970 FORT=OTO6:FORR=0TO5 
980 IFFO(T,R)=FI(1)THENFO(T,R)=0 
990 NEXTR,T 

1000 PU = INT((41-KK)/KJ(FI(FI) ) ) 

1010 F0RT=3T06:IFTY(T)=FI(FI)THENPU=INT(P 
U/UU(INT(T/2.5))+l) 

1015 NEXT 

1020 PU(CA)=PU(CA)+PU 

1030 J$="{HOME}":FORT=lTOCA*2:J$=J$+" 

{GIU'}":NEXT:PRINTJ$;SPC( 1 6-LEN(STR$ 
(PU(CA))))PU(CA) 

1035 GOTOl090 

1040 RESTORE 

1 050 A4 = 91 1 -.GOSUBl 41 0 

1070 GOTO970 

1090 KK=KK + 1:GOTOl 1 0 5 

1100 POKE3212 +C(1)*3+D(1 )*3*40,32 : POKE321 
2+C(2)*3+D(2)*3*40,32 
1105 POKE3171+X*3+Y*40*3,32 
1110 PRINTZ$;GI$(CA) 

1120 IFFI (1)=FI(2)THEN1140 
1130 CA=CA+1:IFCA>GITHENCA=1 
1140 FI=0:PU=0 
1150 IFKK=21THENl190 
1160 GOTO700 

1190 FORT=lTOGI: RE(Gl)=-1 :NEXT 

1200 FORT=lTOGI 

1210 FORTI=lTOGI-l 

1220 IFPU(T)>RE(T1)THENl250 

1230 NEXTTl 

1240 GOTOl270 

1250 FORT2=GI-lTOTlSTEP-l 

1 255 RE(T2+1)=RE(T2):RE$(T2+1)=RE$(T2) 

1260 NEXTT2 

1270 RE(Tl)=PU(T): RE?(Tl)=GI$(T) 

1280 NEXTT 

1290 PRINT"{CLR}" 

1 300 Z$ = "{HOME}":FORT=ITO11-Gl :Z$ = Z$ + " 

{GIU' }":NEXT:PRINTTZ?;TAB( 1 2) "{RVS} 
{FLASH ON}CLA{ 2 Sj lFICA FINALE 
{OFF}" 
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Seguito Caccia alla coppia per C 16. 

1310 K=11+GX:GOSUBl400 
1320 F0RT=GIT01STEP-1 

1330 Z$="{HOME}":FORU=lTOK:Z$=Z$+"{GIU'}" 
: NEXT 

1335 PRINTZS;TAB(9)T"){ 2 SPAZI}"RE$(T);S 
PC(15-LEN(RE$(T))-LEN(STR$(RE(T))))R 
E (T) 

1 340 K=K-2 : FORTI=1TO500:NEXT 
1350 NEXT 

1360 PRINT"{HOME}":FORT=lT022:PRINT:NEXT: 
PRINT"VOLETE GIOCARE ANCORA ? (S/N) 

Il • 

1 370 GETA$:IFA$ = "N"THENPRINT"{CLR}": END 

1380 IFA$="S"THENGQ=1:GOT08 

1390 GOTOl370 

1400 RESTORE:VOL8:A4=0 

1410 READA$:IFA$<>"A"THENl410 

1 420 READAl,A2:IFAl=A4ANDA2 = 20THENl 450 

1430 SOUND2,Al,A2 

1440 GOTOl420 

1450 RETURN 

2000 DATAL,1,2,3,4,5,6,7,8,9,12,13,14,15, 
16,17,18,19,20,21,22,26 
2020 DATAA,911,35,929,40,911,10,897,20,91 
1 , 1 0,881 ,40,91 1 ,20,91 1 , 1 0,897,20 
2025 DATA881,10,854,40,854,10,911,20,911, 
10,897,40,0,20 



Listato 4. Caccia alla coppia, versione C 64. 

5 DIMFO(6,5),CA(21),KJ(26),W(21) 

6 RI$ = "-{ 2 SPAZlM 2 SPAZlM 2 SPAZI} 
-{ 2 SPAZI} - { 2 SPAZl}-{ 2 SPAZl}-^ 

T 2 SPAZI}-":R2$="[<Q>]{ 2 *} + { 2 *} + 

{ 2 *} + { 2 *} + { 2 *} + { 2 *} + { 2 *}[<W>] 

II 

8 FORT=lT026:KJ(T)=1 :NEXT 

9 UU(1)=2:UU(2)=1.4 

10 PRINT"{CLR}" 

25 IFGQ=1THEN45 

29 RESTORE 

30 READA$:IFA$O"L"THEN30 

40 F0RT=1T021:READW(T):NEXT 

45 GQ=0:RESTORE 

70 FORT=1T08:PU(T)=0 : RE(T)= -1 :RE$(T)="":N 
EXT 

80 KK=0 

100 PRINT"{CLR}{ 5 GIU'}"CHR$(14) 

110 PRINTTAB(2)"[<A>] { 33 M [<S>]":PRINTT 
AB (2) "-"SPC(33) 

120 PRINTTAB ( 2) "-_{ 3 SPAZl}A{ 2 SPAZl}B 
{ 2 SPAZI}C{ 2 SPAZI}D{ 2 SPAZl}E 

{ 2 SPAZI}F{ 2 SPAZI}G{ 2 SPAZl}H 

{ 2 SPAZI}I{ 2 SPAZI}L{ 2 SPAZI}-" 

1 30 PRINTTAB (2) "-"SPC (33) -.PRINTTAB (2) " 
- M{ 2 SPAZlTN{ 2 SPAZI}0{ 2 SPAZlJP 
T 2 SPAZI }Q{ 2 SPAZI}R{ 2 SPAZl}S 

{ 2 SPAZI}T{ 2 SPAZI}U{ 2 SPAZl}V 

{ 2 SPAZI}Z 


140 PRINT" { 2 SPAZI }-_"SPC ( 33) : PRINT" 

{ 2 SPAZI}[<Z>]{ 33 *}[<X>]" 

145 FORT=lT021 :CA(T)=0 :NEXT 

147 GOSUBl400 

150 FORT=0TO6:FORR=0TO5 

160 CA=INT(RND(1)*21+1):CA(CA)=CA(CA) + 1:1 
FCA(CA)> 2THEN1 60 
170 FO(T,R)=W(CA):NEXTR,T 

200 PRINT:PRINT:INPUT"IN QUANTI GIOCHIAMO 
" ;GI 

210 IFGI<1ORG>8THENPRINT"{ 2 SU}":GOTO200 
220 FORT=1TOGI 

230 PRINT"NOME DEL GIOCATORE N."T;:INPUTG 
1 $ (T) 

240 IFLEN(GI$(T))>12THENPRINT"NOME TROPPO 
LUNGO, MAX.12 ":GOTO230 
250 NEXT 
500 PRINT"{CLR}" 

510 PRINTTAB(17)"[<A>]{ 2 *}[<R>]{ 2 _M 
[ <R> ] { 2 M<R>]{ 2 *}[<R>]{ 2 *} 

[<R>]{ 2 *}[<R>]{ 2 *} [<S>]" 

520 FORT=1T05:FORK=1T02:PRINTTAB(17)RI $ :N 
EXT:PRINTTAB(17)R2$ :NEXT 
530 FORT=lT02:PRINTTAB(17)RI$:NEXT 
540 PRINTTAB(17)"[<Z>] { 2 ^}[<E>]{ 2 *} 

[<E>]{ 2 *}[<E>]{ 2 *}[<E>]{ 2 *} 

[<E>] { 2 *}[<E>] { 2 *} [<X>]" 

600 PRINT"{HOME}" 

610 FORT=lTOGI 

620 PRINT:PRINTGI$(T);SPC(16-LEN(STR$(PU( 
T)))-LEN(GI$(T)));PU(T) 

640 NEXT 

650 CA=INT(RND(1)*GI+1) 

700 Z$="{HOME}":FORT=lTOCA*2:Z$=Z$+" 

{GIU'}":NEXT:PRINTZ$;"{RVS}";GI$(CA); 
"{OFF}" 

710 X=0:Y=0:A=0:B=0 

720 POKEl122+X*3+Y*40*3,126 

735 FORT=lTO50:NEXT 

740 GETA$:IFA$=CHR$(13)THEN900 

750 IFA$="{SU}"ANDY>0THENB=-1:GOTO790 

760 IFA$="{GIU'}"ANDY<5THENB=1:GOTO790 

770 IFA$="{SIN}"ANDX>0THENA=-1:GOTO790 

780 IFA$ = "{DES}"ANDX<6THENA=1 

790 POKEl122+X*3+Y*40*3,32 

800 X=X+A:Y=Y+B:A=0:B=0 

810 GOTO720 

900 IFFI=1AND(C=XANDD=Y)THEN750 
905 IFFO(X,Y)=0THEN750 

91 0 FI=FI + 1: FI(FI)=FO(X,Y) :C(FI)=X:D(FI) = 
Y:IFFI=1THENC=X:D=Y 

913 KJ(FI(FI))=KJ(FI(FI))+.05 

914 TY(4+FI)=TY(2+FI):TY(2+FI)=TY(FI):TY( 
FI)=FI(FI) 

920 POKEl 1 63+C(FI)*3+D(FI)*40*3,FI (FI) 

930 IFFI<2THEN750 

950 IFFI (1 ) OFI ( 2 ) THENFORT=l T03000 : NEXT : G 
OTOl100 
960 GOTOl040 
970 FORT=0TO6:FORR=0TO5 
980 IFFO(T,R)=FI(1)THENFO(T,R)=0 
990 NEXTR,T 

800 PU=INT((41-KK)/KJ(FI(FI))) 

1010 F0RT=3T06:IFTY(T)=FI(FI)THENPU=INT(P 
U/UU(INT(T/2.5))+l) 

1015 NEXT 

1020 PU(CA)=PU(CA)+PU 

1030 J$="{HOME}":FORT=lTOCA*2:J$=J$+" 

{GIU'}":NEXT:PRINTJ$;SPC(16-LEN(STR$ 
(PU(CA))))PU(CA) * 

1035 GOTOl090 
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Seguito Caccici alla coppia per C 64. 

1040 

RESTORE 

1050 

A4 = 6 5 :GOSUBl 410 

1070 

GOTO970 

1090 

KK=KK+1:GOTOl105 

1100 

POKE1163+C(1)*3+D(1)*3*40,32:P0KE116 
3+C(2)*3+D(2)*3*40,32 

1105 

POKE1122+X*3+Y*40*3,32 

1110 

PRINTZ$;GI$(CA) 

1 120 

IFFI(1)=FI(2)THENl140 

1 1 30 

CA=CA+1: IFCA>GITHENCA=1 

1140 

FI=0:PU=0 

1 1 50 

IFKK= 21THENl190 

1160 

GOTO700 

1 190 

FORT=1TOGI : RE(Gl)=-1 :NEXT 

1 200 

FORT=1TOGI 

1210 

FORTI=1T0GI-1 

1 220 

IFPU(T)>RE(T1)THENl250 

1 230 

NEXTT1 

1240 

GOTOl270 

1250 

FORT2=GI- 1TOTl STEP- 1 

1255 

RE(T2+1)=RE(T2):RE$(T2+1)=RE$(T2) 

1 260 

NEXTT2 

1 270 

RE(Tl)=PU(T):RE$(Tl)=GI$(T) 

1 280 

NEXTT 

1290 

PRINT"{CLR}" 

1 300 

Z$ = "{HOME}":FORT=lTOT 1-Gl :Z$ = Z$+" 


{GIU 1 }":NEXT:PRINTTZ$;TAB(12)"{RVS} 

{RVS}CLA{ 2 S}IFICA FINALEE{OFF}" 
1310 K=11+GI:GOSUBl TOO 
1320 FORT=GITOlSTEP-1 

1330 Z$ = "{HOME}":FORU=lTOK:Z$=Z$+"{GIU'}" 
: NEXT 

1335 PRINTZS;TAB(9)T"){ 2 SPAZI}"RE$(T);S 
PC(1 5-LEN(RE$(T) ) -LEN(STR$(RE(T) ))) R 
E (T) 

1 340 K=K-2 : FORTI=1TO500:NEXT 
1350 NEXT 

1360 PRINT"{HOME}":F0RT=1T022:PRINT:NEXT: 
PRINT"VOLETE GIOCARE ANCORA ? (S/N) 

n • — 

f 

1370 GETAS:IFA$="N"THENPRINT"{CLR}": END 
1380 IFA$="S"THENGQ=1:GOT08 
1390 GOTOl370 
1400 RESTORE:A4=0 

1 405 FL=54 272 :FH=FL+1:WW=FL+4:AA=FL+5:HH= 
FL+6:LL=FL+24:A4=0 
1410 READA$:IFA$< >"A"THEN1410 
1 420 READAl ,A2,A3: IFAl =A4ANDA3 = 50THF,Nl 450 

1430 POKELL,10 :POKEAA,50 :POKEHH,68 :POKEFH 
,A1:POKEFL,A2:POKEWW,17 
1 435 FORT=1TOA3*5 :NEXT:POKEWW,0 
1440 GOTOl420 
1450 RETURN 

2000 DATAL,1,2,3,4,5,6,7,8,9,12,13,14,15, 
16,17,18,19,20,21,22,26 
2020 DATAA,65,181,85,78,36,100,65,181,25, 
58,138,50,65,181,25,52,39,100 
2023 DATA65,181,50,65,181,25,58,138,50,52 
,39,25,43,219,100,43,219,25 
2025 DATA65,181,50,65,181,25,58,138,100,0 
,0,50 


mensionamento e la definizione di 
alcune variabili. L'unica differenza è 
nella Dim della variabile KJ che va¬ 
ria da 21 nell’Apple a 26 nei Com¬ 
modore in quanti per questi, facen¬ 
do ricorso al codice ASCII per la 
scrittura dei diversi caratteri, è risul¬ 
tato più semplice sovradimensiona¬ 
re la variabile lasciando i vuoti corri¬ 
spondenti alle lettere X Y K J W non 
utilizzate nel gioco. 

30-40 - Vengono caricati i caratteri 
utilizzati: tavola delle forme per Ap¬ 
ple, codici ASCII per Commodore. 
50-60 - (Solo Apple) - Caricano i 
valori per assestare correttamente le 
lettere in alta risoluzione all’interno 
dei quadrati della griglia. 

70-80 - Annullamento eventuali 
punteggi di partite precedenti e nu¬ 
meri di coppie scoperte. 

100-140 - Composizione dello scher¬ 
mo iniziale con presentazione dei ca¬ 
ratteri. In alta risoluzione per Ap¬ 
ple. 

145 - Annullamento posizione lette¬ 
re di una eventuale partita preceden¬ 
te. 


147 - Rimanda alla routine sonora 
per la musichetta introduttiva. 
150-170 - Vengono casualmente de¬ 
cise le posizioni nella griglia delle 21 
coppie di lettere. 

200-250 - Vengono chiesti e control¬ 
lati il numero e i nomi di chi gioca. 
500-540 - (560 solo per Apple) - Que¬ 
sta routine disegna la griglia sulla 
quale si svolgerà il gioco: in alta riso¬ 
luzione per Apple, con caratteri se¬ 
migrafici per C 16 e C 64. La diffe¬ 
renza del valore dei Tab tra questi 
due è dovuta al loro diverso nodo di 
gestire lo schermo: il C 64, quando 
viene occupata l’ultima colonna del¬ 
la riga con l’ultimo carattere della 
stringa, va a capo prima della fine 
della stampa per cui la stessa fa sal¬ 
tare un’ulteriore linea e la stampa 
successiva sarà data con una riga di 
spazio, mentre il C 16 nella stessa 
situazione si comporta in modo di¬ 
verso e il risultato è l’assenza della 
riga vuota. Il problema poteva esse¬ 
re risolto lasciando i valori delle Tab 
invariati e aggiungendo dei punti e 
virgola (;) finali nella versione per C 


64. 

600-640 - Vengono posizionati i no¬ 
mi dei partecipanti con i relativi 
punteggi. Nell’Apple, peri problemi 
relativi alla scrittura sulla pagina in 
alta risoluzione, si è scelta l’opzione 
Hires + 4 righe di testo e quindi i 
nomi compaiono ovviamente sul 
fondo dello schermo, mentre sul C 
16 e sul C 64 tali dati sono visualiz¬ 
zati sulla sinistra del video avendo 
posto la griglia a destra. 

650 - Scelta del giocatore a cui tocca 
iniziare. 

700 - Lampeggio del nome del gioca¬ 
tore di turno (inverso per C 64). 
710-735 - Annullamento della posi¬ 
zione del cursore di griglia e suo po¬ 
sizionamento con seguente pausa 
per permetterne la visione. 

740-780 - Ciclo di controllo per lo 
spostamento del cursore con l’uso 
dei tasti con freccette e per la visione 
delle lettere nascoste tramite la pres¬ 
sione del tasto Return. 

790-810 - Cancellazione del cursore 
con aggiornamento delle sue varia¬ 
bili e ritorno alla linea per la stampa 
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nella eventuale nuova posizione. In 
caso di mancato movimento genera 
l’effetto di lampeggio. 

900 - Annulla l’effetto del tasto Re¬ 
turn se ci si trova nella casella appe¬ 
na scoperta. 

905 - Annulla l’effetto del tasto Re¬ 
turn se ci si trova in una casella con¬ 
tenente il carattere di una coppia già 
scoperta. 

910 - Assegnazione delle diverse va¬ 
riabili in gioco per la nuova casella 
aperta. 

913 - Aumento del coefficiente cor¬ 
relato al numero di volte che una 
lettera è stata scoperta senza l’otte¬ 
nimento della coppia. 

914 - Assegnazione delle variabili 
che memorizzano gli ultimi caratteri 
scoperti al fine del punteggio. 

920 - Stampa il carattere contenuto 
nel riquadro richiesto. 

930 - Rimanda allo spostamento del 



5-80 

Dimensionamento variabili e preparazione caratteri. 

100-140 

Schermo iniziale. 

150-170 

Posizionamento casuale delle lettere nella griglia. 

200-250 

Numero e nomi dei giocatori. 

500-560 

Visualizzazione della griglia. 

600-640 

Posizionamento dei nomi dei giocatori sullo schermo. 

700-730 

Preparazione per l’inizio del gioco. 

740-810 

Gestione spostamento cursore e visualizzazione delle lettere. 

900-1160 

Controllo di quanto trovato con relative conseguenze. 

1190-1280 

Preparazione della classifica finale. 

1290-1390 

Stampa della classifica finale. 

1400-1450 

Routine musicale. 

1500-1580 

Routine gestione sprite (solo C 64). 

Tabella 1. 

Elenco delle principali routine. 


cursore se si è alla prima scelta. 

950 - Se le due figure scoperte non 
sono uguali passa alla cancellazione 
delle stesse. 

970-990 - Vengono annullati i valori 
dei riquadri corrispondenti alla cop¬ 
pia scoperta per permettere il con¬ 
trollo che la linea 905 effettuerà nelle 
mani successive. 

1000-1020 - Viene assegnato il pun¬ 
teggio in considerazione: del nume¬ 
ro di coppie già ritrovate (KK), del 
coefficiente relativo a precedenti in¬ 


dividuazioni delle lettere in questio¬ 
ne (KJ linea 913), del tempo passato 
dai precedenti ritrovamenti (linea 
914). Per quest’ultimo caso il pun¬ 
teggio viene dimezzato se uno dei 
due caratteri della coppia è stato 
scoperto nel turno precedente, men¬ 
tre viene ridotto del 40% se è stato 
scoperto due turni prima. 

1030 - Aggiorna il punteggio. 
1040-1050-(1060 per Apple)- Breve 
musichetta di accompagnamento al 
ritrovamento. 
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1090 - Aumenta la variabile utilizza¬ 
ta per il conteggio delle coppie ritro¬ 
vate. 

1100 - Cancella i caratteri se non 
uguali (da linea 950). 

1105 - Cancella il cursore. 

1110 - Riporta il nome del giocatore 
che ha finito in caratteri normali. 

1120 - Lascia il turno allo stesso gio¬ 
catore se questi ha indovinato la 
coppia. 

1130 - Aggiorna il turno dei giocato¬ 
ri se l’attuale ha fallito il compito. 
1190-1280 - Questa routine mette in 
ordine i vari giocatori in relazione al 
punteggio degli stessi per la visualiz¬ 
zazione della classifica finale. 
1290-1390 - Stampa della classifica 
finale con musica (1310) e richiesta 
per una eventuale ulteriore partita. 
1400-1450 - Diverse routine musicali 
in relazione alle capacità in tal senso 
dei computer utilizzati. 

2000 - Per Apple valori per la corre¬ 
zione del posizionamento dei carat¬ 
teri in alta risoluzione. Per C 64 e C 
16 valori per codice ASCII dei carat¬ 
teri. 

2010 - (Solo Apple) - Routine in lin¬ 
guaggio macchina per musica. 

2020 - E seguenti, diversi valori ri¬ 
chiesti dalle varie macchine per l’ese¬ 
cuzione del ritornello di Yellow Sub¬ 
marine. 


Elenco principali variabili 

FO(6,5) - Memorizza le posizioni 
delle lettere nella griglia. 

CA(21) - Serve per il posizionamen¬ 
to casuale delle lettere. 

0(21) P(21) - (Solo per Apple) - 
Contengono i valori per il corretto 
posizionamento delle lettere nella 
griglia. 

KJ(21) - Controlla il coefficiente 
correlato al numero di volte che una 
lettera è stata scoperta senza l’otte¬ 
nimento della coppia. 

UU(2) - Contiene il coefficiente di 
riduzione del punteggio per le lettere 
scoperte nelle due volte precedenti. 
Gl - Numero giocatori. 


GI$(GI) - Nomi dei giocatori. 

X, Y - Controllo del cursore di gri¬ 
glia. 

A, B - Controllo del movimento del 
cursore. 

TY(6) - Memorizza le ultime lettere 
estratte per il punteggio. 

FI - Numero delle figure visionate 
nella mano in corso. 

FI(FI) - Numero di codice corri¬ 
spondente alla lettera in visione. 

KK - Numero di coppie scoperte. 
PU(GI) - Punteggio dei giocatori. 
RE(GI) RE$(GI) - Punti e nomi dei 
giocatori per la classifica finale. 


Conclusioni 

Una prima occhiata potrebbe far¬ 
lo considerare uno dei tanti giochi a 
più persone adattati ai computer, 
ma una tale definizione non rende 
merito alla scelta fatta: è vero che c’è 
un’inflazione di copie più o meno 
ben fatte di tutti i giochi che la razza 
umana ha avuto la pazienza di in¬ 
dentare prima dell’avvento dei com¬ 
puter, ma è anche vero che una parte 
di tali “giochi” (o forse tutti, chi più 
chi meno) hanno un valore che supe¬ 
ra il semplice aspetto ludico. 

I processi intellettivi non avrebbero 
modo di essere se non fossero conve¬ 
nientemente supportati da una ade¬ 
guata capacità mnemonica che, per 
mantenersi in forma, ha però biso¬ 
gno di un continuo esercizio e anche 
se ridurre tutto a un gioco può sem¬ 
brare troppo semplicistico, il negare 
la possibilità di unire l’utile al dilet¬ 
tevole può ricadere in un errore al¬ 
trettanto grave: per lo sviluppo della 
memoria vale più un gioco utile allo 
scopo che una strofa in rima mal 
digerita. 

11 programma in questione, inol¬ 
tre, non prevede restrizioni in merito 
all’età dei giocatori come altri giochi 
altrettanto validi quali mezzi di sup¬ 
porto alle attività intellettive (carte, 
scacchi) e si offre, in questo senso, 
alle più ampie sorprese. Provare per 
credere. ■ 
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rafici di funzioni 
—trigonometriche— 


Un programma didattico 
per Sharp MZ700/731 


di Fabio Farina 
e Daniele Zampariolo 

Q uesto programma serve a 
visualizzare su plotter (pre¬ 
sente nello Sharp MZ 731) 
una qualsiasi funzione trigonome¬ 
trica precedentemente inserita tra¬ 
mite Input. 

Il programma si articola nel seguen¬ 
te modo: dopo la definizione delle 9 
funzioni presenti nel programma, a 
cui è possibile aggiungerne altre, in 
modo da poter ottenere i più svariati 
grafici, e dopo aver inserito l’equa¬ 
zione della funzione, il programma 
inizia col tracciamento in nero delle 


linee degli assi cartesiani X e Y. 

A questo segue il tracciamento più 
marcato dell’asse X con i relativi va¬ 
lori stampati in verde, che variano 
da 0 a 360 gradi, con intervalli di 30 
gradi ciascuno. 

Terminata questa operazione, il 
plotter traccia nello stesso modo 
l’asse Y, con i relativi valori ad inter¬ 
valli di una unità, varianti tra -7 e 
+ 7. 

Logicamente tali valori non sono 
fissi, ma possono essere facilmente 
variati, modificando le routine di ve¬ 
rifica di tracciamento dell’asse Y e 
dei relativi valori e la routine di veri¬ 
fica dei valori Y negativi e positivi. 

A questo punto il programma 
passa a calcolare l’andamento della 
funzione e in breve tempo inizia il 
tracciamento in rosso della funzio¬ 
ne, inserita partendo da 0 a 360 gra¬ 
di. 

Nel programma è possibile apporta¬ 


re modifiche all’andamento della 
funzione: ad esempio si può variare 
l’ampiezza e l’altezza di tale funzio¬ 
ne (vedi linee 1340 e 1400). 
Terminato il grafico, il plotter effet¬ 
tuerà un trascinamento della carta 
verso l’alto e scriverà nella parte in¬ 
feriore del foglio l’equazione della 
funzione disegnata, quindi la penna 
ritornerà nella posizione iniziale in 
attesa di un nuovo grafico. 

Questo semplice programma, a- 
dattabile ad altri computer, può es¬ 
sere notevolmente migliorato, non 
solo con l’aggiunta di nuove funzio¬ 
ni ma, apportando delle semplici 
modifiche, ci si può sbizzarrire (si 
intende per chi ne ha voglia) a calco¬ 
lare e quindi a trasferire sullo stesso 
grafico anche le derivate prima e se¬ 
conda. 

Cosi si possono verificare le capaci¬ 
tà, non solo di calcolo, ma anche 
grafiche di un computer. 
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Listalo 1. Il programma per il tracciamento 
ilelle funzioni trigonometriche 

10 PRINT"B" 

20 CURS0R5,5 :PRINT 17,23" G R. A F 

ICO 

30 CURS0R5,6:PRINTr.7,23" 

•I 

40 CURS0R5,7sPRINT[7,23" 0 I 

»» 

50 CURS0R5,8 s PRI NT[7,2 3" 

fi 

60 CURS0R5,9 :PRI NT[7,23 " F U N 2 I 

ONE 

70 CURSQR5i10 SPRINTI 7,23" 

•I 

80 CURS0R5,11 :PRINTr7» 2]" TRIGONO 
flETRICfl " 

90 CURSORI 6,13 SPRINT[7,3]"PRODUCED" 

100 CURSORI9i14:PRINT[7>33"BY" 

110 CURSOR14,15 SPRINTf.7, 33"2. F SOFTWARE" 
120 CURSOR5,17SPRINTC0,7]" URI 



TTEN 

130 CURSOR5,18 sPRINT[0i7]" 

BY 

140 CURS0R5,19SPRINTI0,71" F.F 

ARI NA 

150 F0RD=4T06 

160 COLOR,,6 

170 FOR X=4 T08 

180 FOR Y=4 T045 

190 SET X.Y.D 

200 NEXT T 

210 NEXT X 

220 FOR X=4 T08 

230 FOR T=4 T045 

240 SET CX+67),Y,D 

250 NEXT T 

260 NEXT X 

270 FOR X=4 T075 

280 FOR Y=4 T08 

290 SET X.Y.O 

300 NEXT T 

310 NEXT X 

320 FOR X=4 TO 75 

330 FOR Y=41TO 45 

340 SET CX3,Y,D 

350 NEXT T 

360 NEXT X 

370 FOR X=4T08 

380 FOR Y=4 T045 

390 RESET X,Y,D 

400 NEXT T 

410 NEXT X 

420 FOR X=4 T08 

430 FOR Y=4 TO 45 

440 RESETCX+673,Y, D 

450 NEXT Y 

460 NEXT X 

470 FOR X=4 TO 75 

480 FOR Y=4 TO 8 

490 RESET X,Y,D 

500 NEXT Y 

510 NEXT X 

520 FOR X=4 T075 

530 FOR Y=41 T045 

540 RESET X,Y 

550 NEXT Y 

560 NEXT X 

570 NEXTD 
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Seguilo listalo Grafici di funzione. 

580 CLR:COLOR, ,7, I SPRINTO' 

590 CURS0R3,12 :PRINT[0,7]"LA FUNZIONE in 
POSTATA E' NELLA RIGA " : CURSORE » I4 sLISTl 
320 

600 CURS0R8,17:PRINT"LA UUOI CANBIARE CS 
/NI" 

610 GETDi 

620 IF D*="S"THENGOTO1680 

630 IF D't="N"THEN650 

640 GOTO610 

650 nODE TN 

660 COLOR,,7,1 

670 PRINT"B" 

680 SKIP 12 

690 RE.n DEFINIZIONE DELLE FUNZIONI 
700 DEFFNSECCX3=1 /C.OSCX) 

710 OEFFNCSC.tX3 = 1/SINCX) 

770 DEFFNCOTCX) = 1-'TANCX) 

730 DEFFNSHCX3=CEXPCX3-EXPC-X3372 
740 DEFFNCHCX3=CEXPCX3+EXPC-X3 1/2 
750 DEFFNTHCX3=-EXP(-X3'2*CEXPCX3+EXPC-X 

33+1 

760 DEFFNSCHCX)=2/(EXP(X)+EXPC-XJ) 

770 DEFFNCC.HCX3=2/CEXP(X3-EXPC-X3 3 

780 DEFFNCTHCXD=EXPC-X)72*CEXP(X3-EXPt-X 

n+i 

790 nODETN 

800 PCOLOR0 

810 MODE GR:PHOHE 

820 REH TRACCIANENTO LINEE ASSI 

830 nO'JE0,24 

840 nOUE0,80:LINE360,80 

850 nOUE0,-130:LINE0,290 

860 REH TRACCIAHENTO UALORI SULL'ASSE X 

870 FORQ=lT0361 

880 IFQ=30THENPCOLOR2:GPRINTt0,0],"30" 
890 IFQ=60THENPCOLOR2:GPRINTL0,0], "60" 
900 IFQ=90THENPCOLOR2:GPRINT[0,01,”90" 
910 IFQ=120THENPCOLOR2:GPRINTC0,0],"120" 
920 IFQ=150THENPCOLOR2:GPRINTC0,0], "150" 
930 1Ffl=180THENPCOLOR2:GPRINTC0,0]»"180" 
940 IFQ=210THENPCOLOR2:GPRINT[0,0],"210" 
950 IFO=240THENPCOLOR21GPRINTC0,03,"240" 
960 IFQ=270THENPCOLOR2SPRINT[0,0],"270" 
970 IFQ=300THENPCOLOR2:GPRINT[0,0j, "300" 
980 IFQ=330THENPCOLOR2:GPRINTC0,0],"330" 
990 IFQ=360THENPCOLOR2:GPRINTC0,0], "360" 
1000 nOUEQ,79 iLINEQ,81 
1010 PCOLOR0 
1020 NEXTQ 
1030 F0RU=-131T0291 
1040 PCOLOR0 

1050 RE.n TRACCIANENTO UALORI SULL'ASSE Y 
1060 IF U=-130THENGPRINTL0,0], "-7" 

1070 IF U=-100THENGPRINTC0,0],"-6" 

1080 IF U=-70THENGPRINT[0,0],"-5" 

1090 IF U=-40THENGPRINT[0,0],"-4" 

1100 IF U=-10THENGPRINT[0,0],"-3" 

1110 IF U=20THENGPRINT[8,0j,“-2" 
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più il Personal Computer IBM? 



(►grammi 




La Libreria Programmi 
Personal Computer IBM, 
per esempio. 

Il tuo Concessionario IBM per il Personal Com¬ 
puter ha una novità per te: la Libreria Programmi 
Personal Computer IBM. 

La Libreria Programmi Personal Computer IBM 
è uno strumento utilissimo, che ti permette di 
trovare nel modo più immediato i programmi fir¬ 
mati da IBM. Puoi guardarli e confrontarli perve- 
dere subito, fra quelli di uno stesso settore appli¬ 
cativo, quale sia il programma che risponde me¬ 
glio alle tue esigenze di lavoro. 

Ma la Libreria Programmi Personal Computer 
IBM ti dà anche un aiuto in più: con ogni pro¬ 
gramma troverai la brochure che lo riguarda. Ce 
ne sono anche molte altre, che ti illustreranno 
tutto quello che il tuo Personal Computer IBM 
può fare e le sue applicazioni particolari, come il 
Videotel. 

Puoi prenderle e portarle a casa, per leggerle in 
tutta tranquillità e pensare bene alla scelta che 
devi fare. 

E non dimenticare che il Concessionario IBM (gli 
indirizzi sono sulle Pagine Gialle) è un vero 
esperto, che conosce perfettamente il Personal 
Computer IBM ed i problemi della tua attività. 
Potrà consigliarti nel modo migliore nella scelta 
dei programmi e ti illustrerà tutte le possibilità 
che il Personal Computer IBM ti offre, oltre alla 
grande versatilità delle sue prestazioni. 

Per acquisto, consulenza e servizi, puoi anche ri¬ 
volgerti al Negozio IBM Centromilano. 

Allora,non ti parcelle il Personal Computer IBM 
abbia veramente qualcosa in più? 


Desidero ricevere: 

□ Informazioni sul Personal Computer IIIM ei suoi programmi. 

□ Cli indirizzi dei Concessionari IBM Personal Computer della mia regione 

□ l na visita o dimostrazione pratica di un concessionario 


Nome C ( lognomo. ___ 

Azienda ---- . . .. . .— 

1.1 mia attività • 

Indirizzo 

Spedisci questo tagliando a: IBM Italia 

Direzione Kntrv Systems 

(lascila Post. 13# - 20090 Segrete Milano 


























Grafici di funzioni 
_trigonometriche 


Segnilo listalo Grafici di funzione. 

I 120 IF U-50THENGPRINT[0,0], "-I" 

1 1 '30 IF U=1 10THENGPRINTC0,0]," + 1" 

1140 IF U=140THENGPRINT[0,0], "+2" 

1150 IF 0= 1 70THENGPR1NT f.0> 0], "+3" 

1160 IF U-200THENGPRINT 10) 01 > "+4" 

1170 IF U=230THENGPRINTr.0,0], "+5" 

1180 IF U=260THENGPRINT [0,0.1, ‘'+6" 

1130 IF U-290THENGPRINT[0,01," + ?" 

1200 MOUE0,U•LINE2,U 

1210 NEXTU 

1220 Z=0:B=0 

1230 Cl = 1 :C.2=360 

1240 FOR U=C1T0C2STEP5 

1250 IFBBSf.C1 1>=ABSCC21THENCR=ABSCC1 3 

1260 IFABSCC1 1 <-ABSCC.21 THENCR=ABSCC23 

1270 IFB=0THENM=90*4/CR :B -1 

1280 X=U: Y=0 

1290 X=X*3.1416/180 

1300 IFX=-0THENX=. 000001 

1310 REM EQUAZIONE DELLA FUNZIONE 

1320 P1=3*C0SC2*X)-4*C0SCXj 

1330 Y=Y+P1 

! 340 REM******************************** 
*********** 

1350 REM SCHIACCIAMENTO DELLA FUNZIONE 
SULL'ASSE. X 

1 360 REM******************************** 
*********** 

1370 Y-30*Y 
1380 X-U*M 

1390 REM******************************** 
****** 

1400 REM UARIAZIONE DELLA FUNZIONE SULL' 
ASSE. Y 

1410 REM******************************** 
****** 

1420 Y=Y+82 

1430 GOSUBI600 

1440 IFZ=0THENi. INEX, Y:Z=1 

1450 I-INE X, Y 

1460 PC0L0R3 


1470 

NEXTU 


1480 

PRINTIL ISTI 320 


1430 

GETZ* 


1500 

PRINT"B" 


1510 

PHOME 


1520 

MODE TN 


1530 

SKIP9 


1540 

LIST/PI 320 


1550 

SK1P2 


1560 

PRI NT "BltijQQBtBBBBBCDaiOlUlUUBBlEDUJSBUiJOI 

TERM 

INARE CS/N3 ?" 


1570 

GETR1 * •' IFR1 *= "S"THENEND 


1580 

IFRl-*<> "N"THEN1 570 


1590 

GOTO580 


1600 

REM ************************ 


1610 

REM UERIFICA UALORI DI X E Y 


1620 

REM ************************ 


1630 

IFXC0THENX-0 


1640 

IFX>360THEHX=360 


1650 

IF Y <-130THENY=-130 


1660 

1FY>290THENY=290 


1670 

RETURN 


1680 

REM ******************************* 

********************** 


1690 

REM INSERIMENTO DELLA FUNZIONE 

TRIG 

0N0METRICA Pi =. 


1700 

REM ******************************* 

********************** 


1710 

CLS JPRINT" INSERISCI LA FUNZIONE DI 

PI = 

" :PRINT"0" sINPIJTF 1 * 


1720 

FORI 1 = 1T010 :12*“CHR*(133 + 12$:NEXT 

1730 

DEF KEY(5I=I2* 


1740 

PRINT "SiaiaiflfflBlfflElfflfflBBH CONFERMI ? 

[SI = 

'F5' 

, N0=NT" 


1750 

GETR1* : IERI*=CHR*C133THEN1780 


1760 

1F R ! * <> "N" T HEN1750 


1770 

GOTO!680 


1780 

COLOR, , 0,0 :CLS :PR 1 NT "fflHlUlffllB 1 320 

" JF1 

1790 

PRINT 1 GOTC580 ” 


1800 

PRINT"B" :DEF KEYCS^-COLOR" :ST0P 


REMarks 

10-570 - Presentazione programma. 
580-640 - Routine - visualizzazione 
della funzione inserita. 

650-780 - Pulizia schermo, trascina¬ 
mento carta e definizione delle fun¬ 
zioni da parte dell’operatore. 


780-1210 - Routine modo grafico 
con cambio piemie, tracciamento as¬ 
si cartesiani (Plotter) e relativi valo¬ 
ri. 

1220-1430 -Routine calcolo del¬ 
l’andamento della curva e variazio¬ 
ne sugli assi. 

1440-1470 - Routine tracciamento 


della funzione sulla carta (Plotter). 
1480-1500 - Routine di stampa del¬ 
l’equazione della funzione su carta. 
1630-1670 - Routine verifica dei va¬ 
lori X e Y. 

1680-1800 - Routine inserimento 
dell’equazione della funzione. 
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Un semplice gioco 
con un computer 
“intelligente” 


di Stefano Guarinelli 

Le dovute premesse 

1 1 gioco che vi presentiamo è 
una particolare versione nu¬ 
merica di un “classico” dei gio¬ 
chi di intelligenza: il famosissimo 
Master Mimi. 

Dopo questa dichiarazione, una 
parte dei lettori sicuramente escla¬ 
merà con una nota di disappunto: 
“Un’altra versione computerizzata 
del Master Mind! Tutte le riviste, 
Personal Software inclusa, ne hanno 
pubblicata almeno una!”. 

Questo è vero e non lo neghiamo; 
tuttavia riteniamo che “B&N” meri¬ 
ti ugualmente la vostra attenzione, 
includendo anche coloro che già an¬ 
noverano una versione del Master 
Mind tra i loro giochi per computer. 
Infatti non è detto che un vecchio 
problema, anche se affrontato e ri¬ 
solto da tempo, non possa offrire 
ancora spunti per soluzioni nuove, 
originali e maggiormente efficaci: ed 
è in questa direzione che pensiamo 
di esserci incamminati, elaborando 
il nostro programma. 

Speriamo vivamente che, giunti al 
termine dell’articolo, anche voi ve¬ 
niate ad essere dello stesso parere. 

In caso contrario, bollateci pure co¬ 
me malati cronici di immodestia. 
Prima di entrare nel vivo dell’argo¬ 
mento, vorremmo sottolineare che 
B&N non è riservato esclusivamente 
ai possessori di Apple II. Con sem¬ 
plici modifiche può infatti girare su 
un qualsiasi computer dotato di un 
microprocessore appartenente alla 


famiglia del 6502: vale a dire Com¬ 
modore 64, VIC 20, e chi più ne ha, 
più ne metta. 

Facciamo quest’ultima affermazio¬ 
ne perché il nostro programma è sta¬ 
to scritto in un BASIC molto generi¬ 
co, privo cioè di istruzioni peculiari 
della sintassi dell’Apple, e per que¬ 
sto motivo di facile convertibilità. 
Inoltre, allo scopo di ottenere la 
massima velocità di esecuzione, la 
subroutine di gioco del computer è 
stata realizzata in linguaggio mac¬ 
china, e quindi l’eventuale lavoro di 
conversione consisterà solo nello 
stabilire in quale area di memoria 
porre le istruzioni e le strutture di 


dati. Infine, considerando le sue pre¬ 
stazioni, B&N è anche un program¬ 
ma eccezionalmente breve (la parte 
in BASIC occupa 2.5 Kbyte di me¬ 
moria, e la subroutine in linguaggio 
macchina circa 300 byte), quindi di 
conseguenza alla portata di compu¬ 
ter, come il VIC 20 inespanso, che 
non posseggono grandi capacità di 
memoria. 

Le regole del gioco 

B&N è molto vicino ad una tenzo¬ 
ne medioevale: vi sono due conten¬ 
denti e lo scontro ad ogni colpo è 
sempre più estenuante. 
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Tuttavia si duella a colpi di numeri e 
non con le armi; la qualità di base 
non è la forza fisica, bensì l’intelli¬ 
genza, e lo sfidante del più o meno 
malcapitato lettore è proprio il suo 
amico personal, che dimostrerà di 
essere un avversario tanto disinvolto 
quanto temibile. 

11 gioco consiste in questo: ciascuno 
dei due contendenti deve formulare 
segretamente un proprio numero e 
deve cercare di indovinare per primo 
quello dell’avversario, onde conse¬ 
guire la vittoria. 

Esistono delle regole precise per la 
scelta dei numeri: devono essere 
sempre di quattro cifre, non devono 
contenere lo zero e ciascuna cifra 
che li compone non deve essere ripe¬ 
tuta più di una volta. Ad esempio 
9.817, 1.436, 2.539 sono corretti, 
mentre 874, 9.013, 7.527 non lo so¬ 
no. 

Come si fa ad indovinare il numero 
dell’avversario? 

Escludendo l’ipotesi che i due sfi¬ 
danti siano dotati di telepatia, non 
resta che la seguente tecnica: a turno 
i due giocatori formulano, sempre 
secondo le stesse regole, un altro nu¬ 
mero, che ritengono corrispondente 
a quello dell’avversario, e quest’ulti¬ 
mo è tenuto a dichiarare con corret¬ 
tezza - pena l'ignominia e l’annulla¬ 
mento della partita - che tale nume¬ 
ro, rispetto al proprio, vale da uno a 
quattro Bianchi se sono state indovi¬ 
nate da una a quattro cifre, ma non 
la loro posizione, e da uno a quattro 
Neri se non state indovinate da una 
a quattro cifre ed in più la loro collo¬ 
cazione. 

E’ spiegata quindi Porigine del 
nome di questo gioco. 

Un altro esempio servirà da ulte¬ 
riore chiarimento: 1.735, rispetto ad 
8.725, dà un punteggio di due Neri e 
di zero Bianchi, perché il 7 ed il 5 
non solo sono presenti in entrambi i 
numeri, ma occupano anche la stes¬ 
sa posizione, rispettivamente la se¬ 
conda e la quarta, contando le cifre a 
partire dalla prima a sinistra. Sem¬ 
pre rispetto ad 8.725, 4.215 vale un 


Bianco ed un Nero: infatti in 4.215 il 
2 è presente, ma non in terza posizio¬ 
ne, e vale quindi un Bianco, mentre 
il 5 continua a valere un Nero, per¬ 
ché ancora in quarta posizione. 
Come vedete, le regole del gioco non 
sono difficili; arduo sarà invece riu¬ 
scire a vincere il computer. 

A conclusione di questa esposizione 
scherzosa, vorremmo porre una 
considerazione un po’ più seria, che 
è la seguente. 

La regola, secondo la quale in 
B&N una stessa cifra non può essere 
ripetuta più di una volta nell’ambito 
di un numero, potrebbe essere vista 
come una limitazione che semplifica 
di molto il gioco, rendendolo più 
banale rispetto al Master Mind. 
Infatti in quest’ultimo, in cui al po¬ 
sto delle cifre numeriche si utilizza¬ 
no i colori, è invece possibile ripetere 
fino a quattro volte uno stesso colo¬ 
re. 

In realtà, si tratta di una limitazione 
apparente, perché nel Master Mind 
si hanno a disposizione solo sette 
colori diversi, che consentono 2.401 
differenti combinazioni di quattro 
elementi. Invece in B&N si può gio¬ 
care scegliendo fra 3.024 diversi nu¬ 
meri, consentiti, nonostante la sud¬ 
detta limitazione, dalle ben nove ci¬ 
fre numeriche disponibili per crearli. 
Inoltre, non ripetere più di una volta 
la stessa cifra, aumenta la quantità 
di informazioni che si ottengono 
quando viene comunicato in termini 
di Bianchi e Neri il risultato di una 
giocata, lasciando nell’esito di una 
partita uno spazio minore alla fortu¬ 
na e maggiore alla strategia e alla 
capacità di analisi. 

In una parola il gioco, oltre che 
più originale, è anche più avvincen¬ 
te. 

Bianchi e Neri con il vostro Apple 

Dopo aver esposto le regole del 
gioco, possiamo descrivere come si 
comporta il vostro Apple quando 
esegue B&N, descrizione che vi sarà 
molto utile nella fase successiva di 


analisi e comprensione dei listati. 

Al fatidico Run, il computer chiede¬ 
rà il vostro nome ed il vostro nume¬ 
ro segreto. 

Su quest’ultima richiesta i più so¬ 
spettosi avranno sicuramente da ri¬ 
dire: “come può non vincere un 
computer a cui è già stato fornito il 
numero da indovinare?”. 

In realtà, l’amico personal non tiene 
per niente conto di questa informa¬ 
zione, ma, come vedremo, accetta il 
vostro numero segreto solo per 
stamparlo nel tabellone di gioco. 

Alla videata successiva, infatti, 
nella parte superiore dello schermo 
compariranno due colonne: una a 
sinistra, in cui sono riportati auto¬ 
maticamente ad ogni mossa i numeri 
giocati dal computer, insieme con i 
risultati realizzati in termini di Bian¬ 
chi e Neri, ed una a destra, nella 
quale vengono eseguite le medesime 
operazioni con i numeri da voi gio¬ 
cati. 

E’ proprio nella colonna del compu¬ 
ter che viene stampato il vostro nu¬ 
mero segreto, e a questo punto voi 
stessi avrete compreso l’utilità di 
questa operazione. 

Avere questo numero incolonnato 
sopra a quelli giocati dall’amico per¬ 
sonal, vi eviterà infatti di ricordarlo 
a memoria o di doverlo scrivere su 
un foglio di carta, e vi consentirà di 
determinare rapidamente il punteg¬ 
gio realizzato dal computer ad ogni 
sua mossa. 

Incominciando una partita, al vo¬ 
stro Apple spetta sempre la prima 
mossa, e, in accordo con quanto e- 
sposto, il primo numero da esso gio¬ 
cato sarà stampato nella colonna 
con l’intestazione del computer. Ta¬ 
le numero verrà anche riportato nel¬ 
la parte inferiore dello schermo, in 
cui viene creata una finestra testo 
riservata a tutti i messaggi di gioco. 
Sempre nella finestra testo, il com¬ 
puter chiederà prima quanti Neri e 
poi quanti Bianchi ha realizzato con 
quel numero, e spetta a voi fornirgli 
le risposte esatte. 

Come ogni essere dotato di razioci- 
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nio, il computer rifiuterà risposte 
scorrette tipo: “ventidue Neri e dieci 
Bianchi”, oppure le lettere o i simbo¬ 
li che potreste battere per distrazio¬ 
ne o divertimento. 

Nel corso del gioco, potrà accade¬ 
re di fornire al computer, sempre per 
distrazione o per diletto, delle rispo¬ 
ste sbagliate. 

Per esempio potreste rispodere: “ze¬ 
ro Neri e due Bianchi” al posto di: 
“un Nero e un Bianco”. 

In questo caso il vostro Apple ac¬ 
cetterà la risposta, perché compati¬ 
bile con le regole di B&N. 

Quindi fate attenzione a non distrar¬ 
vi oppure a non divertirvi in questo 
modo perché l’amico personal, gio¬ 
ca in base ad un algoritmo che, come 
vedremo, gli consente di valutare la 
congruenza dell’ultima risposta sul¬ 
la base di quelle precedenti. 
Cosicché, se sbagliate o barate, alla 
mossa successiva o comunque dopo 
pochissime mosse, il vostro Apple se 
ne renderà inesorabilmente conto ed 
annullerà la partita, comunicandovi 
un appropriato messaggio. 

Sarete costretti dunque a ribattere 
Run e ad incominciare una nuova 
partita, cercando di fare maggiore 
attenzione. 

E’ questo un fiore all’occhiello del 
nostro programma. Dopo che il 
computer avrà fatto la sua prima 
mossa, verrà il vostro turno. 

Sempre nella finestra testo, vi sarà 
chiesto qual’è il numero da voi gio¬ 
cato. 

Anche in questo caso, l’amico perso¬ 
nal accetterà solo numeri validi se¬ 
condo le regole di B&N, e stamperà 
nella vostra colonna il numero da 
voi formulato, con a fianco il risulta¬ 
to realizzato. 

Se nessuno dei due contendenti ha 
indovinato il numero segreto dell’al¬ 
tro, - è un po’ difficile alla prima 
mossa - il gioco prosegue ed il vostro 
Apple prima, e voi poi, giocherete la 
seconda mossa, sempre secondo le 
stesse regole. 

11 gioco continua fino a quando 
uno dei due sfidanti indovina il nu¬ 
mero segreto dell’avversario. 





Se si tratta del computer, aspetterà, 
prima di proclamare la propria vit¬ 
toria, che anche voi eseguiate l’ulti¬ 
ma mossa. 

Il computer, infatti, comincia a gio¬ 
care sempre per primo e decreterà il 
pareggio, nel caso anche voi ri uscia¬ 
te ad indovinare il suo numero se¬ 
greto all’ultima mossa. 

Se invece indovinate voi per primi, 
ammetterà immediatamente la sua 
sconfitta. 

In caso di propria vittoria, il compu¬ 
ter vi rivelerà sempre il suo numero 
segreto, affinché anche i più diffi¬ 
denti fra voi possano controllare i 
risultati che vi ha fornito e convin¬ 
cersi che non ha barato. 

Come potete osservare, il vostro 
Apple emula in B&N il comporta¬ 
mento di un perfetto giocatore uma¬ 
no e forse anche qualcosa in più. 
Infatti, poiché l’algoritmo di gioco è 
stato scritto in linguaggio macchina 
e non in BASIC, il vostro amato 
computer effettua quasi istantanea- 
mente ogni sua mossa, in modo che 
la durata di una partita sia condizio¬ 
nata solo dalla vostra velocità di gio¬ 
co. 

Infine ricordiamo che il vostro Ap¬ 
ple, sempre grazie alla sua procedu¬ 
ra di gioco, chiude una partita di 
B&N al massimo entro sette mosse. 

Non sottovalutatelo, dunque, e, 
quando giocate, impegnatevi o an¬ 
drete incontro a grosse delusioni. 


Analisi del listato BASIC 

La parte in BASIC di B&N gene¬ 
ra casualmente il numero segreto del 
computer, i primi due numeri che 
saranno da esso giocati, cura tutti gli 
Input e gli Output, nonché le opera¬ 
zioni di verifica su di essi; la stessa 
parte in BASIC alla subroutine di 
gioco in linguaggio macchina. 

I numeri giocati dall’Apple alla pri¬ 
ma ed alla seconda mossa, sono 
dunque generati dalla subroutine in 
linguaggio macchina, che pure con¬ 
tiene la procedura di gioco del com¬ 
puter. 


Ciò avviene perché questi due nume¬ 
ri hanno solo un valore informativo, 
e a tale scopo, devono essere formu¬ 
lati casualmente ed in modo che le 
otto cifre che li costituiscono, siano 
tutte diverse fra loro. 

Ad esempio, se il primo numero gio¬ 
cato è 8.139, il secondo potrà conte¬ 
nere in un ordine qualsiasi quattro 
delle rimanenti cinque cifre, che so¬ 
no 2, 4, 5, 6 e 7. 

Per formulare rapidamente tali 
numeri, è sufficiente l’istruzione 
Randomize del BASIC. 

Sulla base dei punteggi realizzati in 
termini di Bianchi e Neri da questi 
due numeri, la subroutine in lin¬ 
guaggio macchina opera poi la scel¬ 
ta del successivo numero da giocare. 
Può accadere, anche se è un’evenien¬ 
za abbastanza rara, che il primo nu¬ 
mero giocato dal computer realizzi 
complessivamente, fra Bianchi e Ne¬ 
ri, quattro punti: ad esempio 2 Neri 
e 2 Bianchi o 1 Nero e 3 Bianchi 
oppure 0 Neri e 4 Bianchi. 

In tal caso, il computer ha già identi¬ 
ficato quali sono le quattro cifre del 
vostro numero segreto, e quindi pas¬ 
sa alla subroutine in linguaggio 
macchina direttamente alla seconda 
mossa. 

Infatti, giocare il secondo numero 
significherebbe in questo caso spre¬ 
care una mossa per ottenere un risul¬ 
tato scontato: zero Neri e zero Bian¬ 
chi. 

Osservando il listato BASIC, no¬ 
terete che non abbiamo abbondato 
con le istruzioni di carattere grafico, 
perché abbiamo preferito dare al 
gioco solo una veste funzionale. 
Noterete inoltre l’assenza di istru¬ 
zioni di carattere sonoro, perché, a 
nostro avviso, possono infastidire e 
deconcentrare il giocatore. 

Per accontentare, però, quanti fra 
voi sono patiti del beep, suggeriamo 
di battere, durante la trascrizione 
del programma BASIC, Ctrl-G in 
ogni stringa che riporta un messag¬ 
gio di gioco. 

Tale carattere non sarà visualizzato 
sullo schermo ed ogni messaggio sa¬ 
rà accompagnato dallo squillare del 
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campanello dell’Apple. 

Esaurite le considerazioni di caratte¬ 
re generale, vi forniamo l’analisi del 
listato BASIC linea per linea. 

L’analisi in questione è molto par¬ 
ticolareggiata per favorire i non “ap- 
plisti” nel loro lavoro di conversio¬ 
ne. 

Sempre ai non “applisti’’ ricordia¬ 
mo che le istruzioni seguite da 
“Rem-*-*"*”, sono quelle legate alla 
subroutine in linguaggio macchina o 
alle locazioni di memoria a cui essa 
fa rimerimento. Pertanto queste i¬ 


struzioni dovranno essere modifica¬ 
te se, nel convertire il programma, la 
subroutine e/o le locazioni conte¬ 
nenti i dati vengono poste in una 
differente area di memoria. 

10 - Pone come limite alto del pro¬ 
gramma BASIC l’indirizzo di me¬ 
moria 24576 ($6000). 

150 - Inizializza la variabile VI, uti¬ 
lizzata nella tabulazione verticale 
del tabellone di gioco. 

170-230 - Genera casualmente il nu¬ 
mero segreto del computer, memo¬ 
rizzando le sue quattro cifre, tutte 


diverse fra loro, nel vettore N( ). 
240-250 - Carica in memoria la su¬ 
broutine di gioco in linguaggio mac¬ 
china, nel caso sia stato dato per la 
prima volta il Run. 

260 - Pulisce lo schermo ed accetta il 
nome del giocatore come variabile 
di stringa NM$. 

270 - Pulisce lo schermo ed accetta il 
numero segreto del giocatore come 
variabile di stringa NS$. 

290-300 - Stampa l’intestazione delle 
due colonne del tabellone di gioco. 
Nella colonna con l’intestazione del 


Lisato 1. Il programma in BASIC. 

1 0 

HIMEM: 

24576: REM *** 

20 

REM 

****** *************** 

30 

REM 


40 

REM 

"BIANCHI & NERI" 

50 

REM 


60 

REM 

BY FRANCO & ANTONIO 

70 

REM 

MASSARO 

80 

REM 


90 

REM 

VIA MARCONI 42 

100 

REM 

81026 RECALE (CE) 

110 

REM 


120 

REM 

TEL. 0823/465637 

130 

REM 


140 

REM 

####*****##*####*#*#* 

150 

VI = 3 


160 

REM 

IL COMPUTER FORMULA 

IL SUO NUMERO SEGRETO 

170 

FOR I 

= 1 TO 4 

180 

N ( I ) = 

) 

IF I = 

INT <9 * RND (1) + 1 

190 

1 THEN 230 

200 

FOR M 

= 1 TO I - 1 

210 

IF N(M) = N(I ) THEN 180 

220 

NEXT M 


230 

NEXT I 


240 

IF PEEK (900) = 1 THEN 260 

250 

PRINT 

CHR$ (4) j" BLOAD SUBRO 


UTINE" 

: POKE 900,1 

260 

HOME : 

INPUT "COME TI CHIAMI 


? ":NM* 

270 

HOME : 

INPUT "QUAL' E' IL TU 


O NUMERO? ";NS* 

280 

HOME 


290 

PRINT 

" MOSSE DEL":: HTAB 2 


4: PRINT "MOSSE DI": HTAB 3: 


PRINT 

"COMPUTER";: HTAB 24: 


PRINT 

NM* 

300 

HTAB 1 

: PRINT NS*;" NUM.SEGR 


ETO"; : 

HTAB 21 : PRINT "_ 


NUM.SEGRETO" 

310 REM GIOCA IL COMPUTER 

320 FOR L = 1 TO 2 
330 FOR I = 1 T0 4 
340 A< L,I) = INT <9 * RND (1)) + 

1 

350 IF L = 1 GOTO 390 
360 FOR M = 1 TO 4 
370 IF A(L,I> = A(L - 1 ,M) GOTO 
340 

380 NEXT M 

390 IF I = 1 GOTO 430 

400 FOR M = 1 TO I - 1 

410 IF A< L,I) = A(L,M) GOTO 340 

420 NEXT M 

430 NEXT I 

440 NEXT L 

450 NUME = 1 

460 POKE 768,1: REM *#* 

470 GOSUB 620 

480 IF NER(NUME) + BIA(NUME) = 4 
GOTO 520 
490 NUME = 2 

500 POKE 768,2: REM **# 

510 GOSUB 620 
520 REM 

530 CALL 24577: REM #** 

540 NUME = NUME + 1 

550 POKE 768,NUME: REM **« 

560 FOR I = 1 TO 4 

570 A(NUME,I) = PEEK <768 + I): REM 
*** 

580 NEXT I 

590 IF A(NUME,1) = 10 THEN POKE 

34,0: POKE 35,23: VTAB 18: PRINT 
"HAI SICURAMENTE SBAGLIATO": 

PRINT "A DARMI QUALCHE RI SU 
LTATO": PRINT "CONTROLLA LA 
LISTA E PRINT "CHE NON 

SI VERIFICHI PIU'!!!": END 

600 GOSUB 620 
610 GOTO 530 
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Seguito listato BASIC. 


620 POKE 34,0: POKE 35,15: VTAB 
VI + 1 : HTAB 1 : FOR I = 1 TO 
4: PRINT A(NUME,I)}: NEXT 
630 POKE 34,16: POKE 35,23 
640 HOME 

650 PRINT "QUESTO E' IL MIO NUME 
RO: " 

660 PRINT ACNUME,1>;A(NUME,2);A< 
NUME,3)jA(NUME,4) 

670 PRINT "DAMMI IL RISULTATO":: 

680 INPUT "QUANTI NERI? "jNERCNU 
ME> 

690 IF NER(Nl)ME) = 4 THEN VI* = 
"VIN”:BIA(NUME) = 0: GOTO 72 
0 

700 INPUT "QUANTI BIANCHI? “jBIA 
(NUME) 

710 SO = NER(NUME) + BIA(NUME): IF 
SO < 0 OR SO > 4 THEN HOME 
: PRINT "RIPETI": GOTO 680 
720 FOR I = 1 TO 4 
730 POKE 773 + (NUME - 1) * 4 + 

I - 1,A(NUME,I): REM »«* 

740 NEXT I 

750 POKE 809 + (NUME - 1) * 2,NE 
R(NUME): REM *«* 

760 POKE 810 + (NUME - 1) * 2,BI 
A(NUME): REM *** 

770 HOME :V1 = VI + 1 : POKE 34,0 
: POKE 35,15: VTAB VI: HTAB 
1 : FOR I = 1 TO 4: PRINT A(N 
UME,I) ; : NEXT : PRINT " ";NE 
R(NUME);"N”jBIA(NUME)i"B" 

780 REM GIOCA L'AVVERSARIO 

790 POKE 34,16: POKE 35,23: HOME 
: INPUT "OK. TOCCA A TE “;AA 
*: IF LEN (AA*) < > 4 THEN 

870 

800 FOR K = 1 TO 4:SA(K) = ASC 

< MID* (AA*,K,1)): IF SA(K> < 
49 OR SA(K) > 57 THEN 870 


810 

IF K = 1 THEN 840 


820 

FOR J = 1 TO K - 1 : IF 
= SA(K> THEN 870 

SA< J) 

830 

NEXT J 


840 

NEXT K 


850 

FOR K = 1 TO 4:T<K> = 
MID* (AA*,K,1)>: NEXT 

VAL < 

860 

GOTO 890 


870 

HOME : INPUT "RIPETERE 

" jAA* 


: IF LEN (AA*) < > 4 

870 

THEN 

880 

GOTO 800 


890 

HOME 


900 

IB = 0 : EN = 0 


910 

FOR I = 1 TO 4 


920 

FOR L = 1 TO 4 


930 

IF N(I) < > T(L> THEN 

990 

940 

IF I < > L THEN 970 


950 

EN = EN ♦ 1 


960 

GOTO 1000 


970 

IB = IB + 1 


980 

GOTO 1000 


990 

NEXT L 


1000 

NEXT I 


1010 

POKE 34,0: POKE 35,15: 

VTAB 


VI : HTAB 21 : FOR I = 1 

TO 4: 


PRINT T(I>; : NEXT : PRINT ■ 

“ ; EN : 11 N“ :IB:"B" 

1020 

IF (VI* = “VIN") « (EN 

1 < 4) 


THEN POKE 34,0: POKE 

35,23 


: VTAB 3: HTAB 21: FOR 

I = 1 


TO 4: PRINT N(I)j: NEXT : VTAB 
21: HTAB 1: PRINT "HO VINTO! 

! * : PRINT "QUESTO ERA IL MIO 
NUMERO :"j: FOR I = 1 TO 4 : PRINT 
N( I ) ; : NEXT : END 
1030 IF (VI* < > "VIN") * (EN = 

4) THEN POKE 34,0: POKE 35, 

23: VTAB 21: PRINT “HAI VINT 
0 “: END 

1040 IF (VI* = “VIN") » (EN = 4) 

THEN POKE 34,0: POKE 35,23 
: VTAB 21 : PRINT "ABBIAMO PA 
REGGIATO": END 
1050 RETURN 


computer viene stampato anche il 
numero segreto del giocatore. (No¬ 
terete poi che la variabile NS$ non 
verrà più presa in considerazione). 
320-440 - Genera casualmente i pri¬ 
mi due numeri che devono essere 
giocati dal computer. Tutte le otto 
cifre che li compongono sono diver¬ 
se fra loro e vengono caricate nella 
matrice bidimensionale A(,). 

450 - Pone ad 1 il valore della varia¬ 
bile Nume, contatore nel program¬ 
ma BASIC del numero di mosse gio¬ 


cate dal computer. 

460 - Carica 1 nella locazione di me¬ 
moria 768 ($300), con funzione ana¬ 
loga a Nume nella subroutine in lin¬ 
guaggio macchina. 

480 - Invia alla suddetta subroutine 
direttamente alla seconda mossa se, 
al ritorno dalla prima, il punteggio 
realizzato dal computer, fra Bianchi 
e Neri, è uguale a quattro. 

490-500 - Predispone il computer al¬ 
la seconda mossa. 

530 - Invia alla subroutine in lin¬ 


guaggio macchina, caricata in me¬ 
moria a partire dall’indirizzo 24577 
($6001). 

540-550 - Predispone il computer a 
giocare un'altra mossa. 

560-580 - Carica nella matrice A(,) le 
quattro cifre del numero che sarà 
giocato dal computer alla mossa in¬ 
dicata dal valore di Nume. Queste 
cifre, generate dalla subroutine in 
linguaggio macchina, vengono lette 
dalle locazioni di memoria che van¬ 
no dalla 769 ($301) alla 772 ($304). 
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590 - Se, nella ricerca del numero 
segreto del giocatore, la subroutine 
in linguaggio macchina non ha tro¬ 
vato nessun numero valido fra tutti 
quelli formulabili secondo le regole 
di B&N, viene segnalato l’errore del 
giocatore e la partita ha termine. 

620 - E’ il punto d’inizio di una su¬ 
broutine BASIC che termina con 
l’ultima linea del listato. La 620 
stampa nella colonna del computer 
il numero da esso giocato nella mos¬ 
sa indicata dal valore di Nume. 
630-660 - Crea la finestra testo della 
parte inferiore dello schermo, la pu¬ 
lisce e vi ristampa il numero giocato 
dal computer. 

670-680 - Chiede al giocatore il risul¬ 
tato realizzato dal computer e regi¬ 
stra il numero dei Neri nel vettore 
Ner( ). 

690 - Se il numero dei Neri è quattro 
(numero indovinato), la variabile di 
stringa Vi$ è resa uguale a “Vin”, il 
numero dei Bianchi viene posto au¬ 
tomaticamente a zero, viene carica¬ 
to nel vettore Bia( ) e si salta alla 
linea 720. 

700 - Chiede il numero dei Bianchi 
totalizzato dal computer e lo carica 
nel vettore Bia( ). 

710 - Verifica la correttezza dei risul¬ 
tati ricevuti, ed in caso negativo ne 
ripete la procedura di acquisizione. 
720-740 - Carica a partire dalla loca¬ 
zione 773 ($305) le cifre dei numeri 
giocati dal computer. -Le locazioni 
dalla 773 fino alla 808 ($328) inclu¬ 
sa, vengono quindi utilizzate a grup¬ 
pi di quattro per memorizzare, nel¬ 
l’ordine in cui sono stati formulati, i 
numeri giocati dal computer. 
750-760 - Carica alternativamente, a 
partire dalla locazione 809 ($329), i 
Neri e, a partire dalla 810 ($32A), i 
Bianchi realizzati dal computer gio¬ 
cando i propri numeri. Lo spazio in 
memoria riservato a tale scopo arri¬ 
va fino alla locazione 826 ($33A) 
inclusa. 

770 - Pulisce la finestra testo e stam¬ 
pa nella colonna del computer il nu¬ 
mero giocato dal computer stesso 
con a fianco il relativo punteggio. 
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790 - Pulisce la finestra testo. Segna¬ 
la al giocatore che deve eseguire la 
sua mossa ed accetta il numero for¬ 
mulato da quest’ultimo come varia¬ 
bile di stringa AA$. Se la lunghezza 
di AA$ non è di quattro elementi 
(Input scorretto), ripete la procedu¬ 
ra di richiesta del numero. 

800-880 - Carica i codici ASCII dei 
quattro elementi di AA$ nel vettore 
SA( ). Se tali codici corrispondono 
alle cifre numeriche da 1 a 9 e se non 
sono ripetuti più di una volta, carica 
il loro valore numerico nel vettore 
T( ). In caso contrario ripete l’intera 
procedura di richiesta del numero. 
900-1000 - Calcola il punteggio rea¬ 
lizzato dal giocatore ed assegna alle 
variabili EN ed IB rispettivamente i 
valori corrispondenti al numero dei 
Neri e dei Bianchi realizzati nel con¬ 
fronto. 

1010 - Stampa il numero formulato 


Listato 2. I codici esadecimali. 


*<5001 . <50DB 


6001- 

A9 

00 

8D 

01 

03 

EE 

01 


6008- 

03 

AD 

01 

03 

C9 

0A 

30 

01 

<5010- 

60 

A9 

00 

8D 

02 

03 

EE 

02 

<5018- 

03 

AD 

02 

03 

C9 

0A 

F0 

E6 

6020- 

A9 

00 

8D 

03 

03 

EE 

03 

03 

60 28- 

AB 

03 

03 

C9 

0A 

F0 

E7 

A9 

6030- 

00 

8D 

04 

03 

EE 

04 

03 

AD 

6038- 

04 

03 

C9 

0A 

F0 

E7 

A2 

00 

6040- 

AD 

04 

03 

DD 

01 

03 

F0 

EC 

6048- 

E8 

E0 

03 

DO 

F6 

AD 

03 

03 

6050- 

CD 

01 

03 

F0 

DO 

CD 

02 

03 

6058- 

F0 

CB 

AD 

02 

03 

CD 

01 

03 

6060- 

F0 

B4 

A9 

04 

8D 

3B 

03 

A0 

6068- 

00 

8C 

40 

03 

EE 

40 

03 

8C 

6070- 

3F 

03 

8C 

3E 

03 

98 

AE 

40 

6078- 

03 

CA 

F0 

07 

18 

6D 

3B 

03 

6080- 

4C 

79 

60 

AA 

8E 

3C 

03 

BD 

6088- 

05 

03 

D9 

01 

03 

DO 

03 

20 

6090- 

C7 

60 

C8 

CO 

04 

DO 

F0 

A0 

60 98- 

00 

E8 

SA 

38 

ED 

3C 

03 

C9 

60A0- 

04 

DO 

E4 

AD 

40 

03 

18 

6D 

60A8- 

40 

03 

AA 

BD 

27 

03 

CD 

3E 

60B0- 

03 

DO 

81 

BD 

28 

03 

CD 

3F 

60B8- 

03 

DO 

09 

AD 

40 

03 

CD 

00 

60CO- 

03 

DO 

A9 

60 

4C 

34 

60 

8A 

60C8- 

38 

ED 

3C 

03 

8D 

3D 

03 

CC 

60D0- 

3D 

03 

F0 

04 

EE 

3F 

03 

60 

60D8- 

EE 

3E 

03 

60 






dal giocatore nella sua colonna, con 
a fianco il punteggio realizzato. 

1020 - Se il computer ha realizzato 
quattro Neri (Vi$ = “Vin”) e se il 
giocatore non ha totalizzato questo 
punteggio, viene annunciata la vit¬ 
toria del computer, ed il suo numero 
segreto viene stampato sia nella fine¬ 
stra testo, che nella intestazione del¬ 
la colonna del giocatore. La partita 
ha termine. 

1030 - Se avviene il contrario della 
linea precedente, viene decretata la 
vittoria del giocatore e termina la 
partita. 

1040 - Se sia il computer che il gioca¬ 
tore hanno realizzato quattro Neri, 
viene proclamato il pareggio e la 
partita ha termine. 


La subroutine in linguaggio macchina 

Siamo finalmente giunti all’anali¬ 
si della subroutine in linguaggio 
macchina. Per identificare il numero 
segreto del suo avversario, il compu¬ 
ter fa riferimento ad un numero, 
battezzato: “in corso”. 

Questo numero assume, come pri¬ 
mo valore, 1.234 - il più basso for¬ 
mulabile secondo le regole di B&N - 
e viene supposto sempre uguale al 
numero segreto del giocatore uma¬ 
no. 

Si tratta naturalmente solo di una 
supposizione, che bisogna quindi 
verificare. 

A tale scopo, 1.234 viene paragona¬ 
to ai numeri giocati in precedenza 
dal computer stesso. I punteggi otte¬ 
nuti, relativi cioè al numero in corso, 
sono a loro volta confrontati con 
quelli corrispondenti di gioco. 

Se nel confronto risultano tutti u- 
guali, 1.234 ha elevate probabilità di 
essere il numero segreto ricercato 
dal computer, e pertanto viene gio¬ 
cato. 

Se invece questa condizione non si 
verifica, il numero in corso è sicura¬ 
mente diverso da quello segreto. 

Il suo valore viene allora sostituito 
da quello immediatamente successi- 










Bianchi e Neri 
per Apple. 


vo secondo le regole di B&N. In al¬ 
tre parole, viene sostituito da 1.235 
e, se anche quest’ultimo non dovesse 
risultare valido, da 1.236 e cosi via. 
Il valore del numero in corso viene 
dunque incrementato fino a quando 
non risulterà giocabile. 

E’ intuitivo che, scorrendo i numeri 
di B&N in senso crescente, il compu¬ 
ter dovrà necessariamente indivi¬ 
duare prima o poi il numero segreto 
del suo avversario. 

Matematicamente, è dimostrabile 
che, adottando questa procedura, il 
vostro personal raggiunge il suo o- 
biettivo al massimo in sette mosse. 
Vi proponiamo adesso un quesito. 
Può accadere che il numero in corso 
assuma tutti i valori numerici di 
B&N, senza risultare mai giocabile? 
La risposta è sì, ma solo nel caso sia 
stato comunicato al computer un 
punteggio di gioco errato. 

E’ ora chiarito anche il modo in cui il 
vostro Apple valuta la congruenza 
dei punteggi che gli vengono forniti 
nel corso di una partita. 

Da quanto detto, emerge la facile 
considerazione che, giocando con¬ 
tro il computer, conviene usare nu¬ 


meri segreti con valori alti: vale a 
dire numeri che iniziano con 7,8 o 9. 
Infatti, se la subroutine ricerca i nu¬ 
meri da giocare in senso crescente, 
quelli più elevati saranno presi in 
considerazione per ultimi. 

Questa tattica di gioco vi concede¬ 
rà un lieve vantaggio, che tuttavia 
non rappresenta un handicap per il 
vostro personal, in grado comunque 
di chiudere una qualsiasi partita al 
massimo entro la settima mossa. 

Un giocatore umano, invece, per 
quanto bravo, non può risparmiarsi, 
in certi casi, di terminare una partita 
in meno di otto mosse. 

Il listato Assembly, che fra l’altro è 
stato pensato e commentato in ma¬ 
niera modulare, dovrebbe risultare 
piuttosto comprensibile: esaminan¬ 
dolo, noterete che abbiamo fatto 
largo uso deH’indirizzamento indi¬ 
cizzato, grazie al quale abbiamo po¬ 
tuto ridurre di molto la lunghezza 
della subroutine. 

A questo punto, possiamo già con¬ 
gedarci dagli “applisti”, che, dopo 
aver caricato in memoria tramite il 
monitor i codici esadecimali della 
subroutine, possono già salvarla su 


disco battendo: 

BSAVE SUBROUTINE, AS6001, 
L219. 

Agli alieni, cioè ai non “applisti”, 
sono destinate le nostre ultime paro¬ 
le. 

Come abbiamo già premesso, il pro¬ 
blema della conversione è legato so¬ 
lo all’area di memoria in cui la su¬ 
broutine ed i dati a cui essa fa riferi¬ 
mento devono essere collocati. 

Se la collocazione, come è molto 
probabile, è diversa da quella del¬ 
l’Apple, bisognerà cambiare i campi 
degli indirizzi. Questa operazione, 
semplicissima se possedete un as¬ 
semblatore, diventa un po’ più diffi¬ 
coltosa se ne siete sprovvisti. 

Non è però impossibile, e, per inco¬ 
raggiarvi e consolarvi, vi ricordiamo 
che il campo di spostamento di istru¬ 
zioni usate a profusione, tipo Bne, 
Beq e Bmi, non deve essere modifi¬ 
cato. 

Questa lunga tortura è ora - final¬ 
mente! - terminata e auguriamo a 
tutti buon divertimento. ■ 


r 
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CMK49: 

-note e musica- 

con il Commodore 64 


C apita sempre più di fre¬ 
quente trovare sul mercato 
delFinformatica, apparec¬ 
chi che uniti ad un certo computer, 
sfruttano le sue doti musicali. 11C 64 
è uno dei personal più diffusi e con le 
migliori capacità sonore grazie al 
SID, che è un piccolo sintetizzatore 
facente parte dell’hardwarc di que¬ 
sta macchina ed è in grado di fornire 
numerosi timbri. E’ quindi chiaro 
che la maggior parte di prodotti “in¬ 
formatico-musicale” tenda ad abbi¬ 
narsi con questo computer. 

La SIEL è uno dei costruttori che ha 
fatto i maggiori sforzi per realizzare 
buoni package e strumenti musicali 
orientati verso quelle persone che di¬ 
sponendo di un computer, ma non 
essendo programmatori tanto esper¬ 
ti da “farlo suonare”, vogliono sod¬ 
disfare il loro desiderio di musica. 
Fra i tanti prodotti di questa casa c’è 
una tastiera, il CMK 49, che può 
essere collegata al Commodore 64 e, 
attraverso un programma, permette 
di suonare intervenendo sul sintetiz¬ 
zatore interno di cui abbiamo accen¬ 
nato prima. Vediamo, dunque, alcu¬ 
ne delle sue interessanti caratteristi¬ 
che: connettendo il CMK 49 al com¬ 
puter è possibile avere il controllo di 
altri strumenti musicali, purché do¬ 
tati dell’interfaccia MIDI. Sulla sca¬ 
tola che collega la tastiera al C 64 c’è 
un connettore multiplo il quale per¬ 
mette di rilanciare i controlli prove¬ 
nienti dalla tastiera (unione per l’in¬ 
terfaccia MIDI). E’ attraverso la 
cartuccia da inserire sul retro del 
computer che il CMK 49 viene a 
questi collegato. La tastiera è com¬ 
posta da quattro ottave; non è pre¬ 
sente in essa alcun interruttore o ma¬ 
nopola poiché ogni regolazione vie¬ 
ne effettuata tramite il programma, 
quindi sui tasti del Commodore. Ta¬ 
le programma è disponibile tanto su 
cassetta, quanto su floppy-disk. 


Il menu principale si compone di set¬ 
te opzioni: 

1) Edit Play; 

2) Polyphonic New Sound; 

3) Monophonic New Sound; 

4) Midi Master Keyboard; 

5) Tape Operation; 

6) End of Job; 

7) Demo Song; 

Analizziamole partendo dal fondo: 
la settima presenta all’audience al¬ 
cuni motivi per dare sfoggio delle 
capacità musicali di tutto il disposi¬ 
tivo. Per concludere il lavoro si sele¬ 
zionerà la numero sei. Attraverso 
Tape Operation si ha accesso al di¬ 
spositivo di memorizzazione dei dati 
collegato: da qui si potranno carica¬ 
re i suoni presentati dal fabbricante 
(ce ne sono 40) o dall’utente stesso, 
che può registrare i timbri da lui 
creati. 

Con MIDI Master Keyboard è 
possibile controllare attraverso l’in¬ 
terfaccia MIDI, altre tastiere suo¬ 
nando sul CMK 49. La seconda e 
terza opzione permettono la crea¬ 
zione di nuovi timbri: c’è tutta una 
serie di parametri che possono esse¬ 
re controllati e la cui selezione avvie¬ 
ne attraverso una freccia rossa. La 
selezione dei dati sui quali è possibile 
intervenire e le modifiche successive 
sono molto chiare e pratiche: si pos¬ 
sono cambiare rapidamente i timbri 


che, come già detto, possono essere 
memorizzati. 

L’Edit Play, infine, presenta l’elenco 
di tutti i timbri che possono essere 
reperiti nella memoria partendo da 
quelli già predisposti dal costrutto¬ 
re. 

Quando il programma è caricato 
scompare dallo schermo il colore blu 
per riapparire più tardi con una fa¬ 
scia: questo vuol significare per l’u¬ 
tente che la tastiera è abilitata per 
eseguire il timbro selezionato. Il sin¬ 
tetizzatore del Commodore 64 di¬ 
spone di tre oscillatori che sono stati 
tutti utilizzati allo scopo di produrre 
ogni timbro udibile; è chiaro che nel¬ 
l'ambito monofonico i suoni saran¬ 
no più ricchi che nel caso polifonico, 
ma anche qui non ci si potrà proprio 
lamentare. L’estrema chiarezza delle 
due opzioni Mono/Polyphonic New 
Sound permettono di utilizzare il 
CMK 49 con funzione didattica 
dando la possibilità all’utente di 
controllare le variazioni apportate 
ad un timbro dopo la modifica di 
ogni parametro. 

La diffusione del C 64 e la bontà 
di questo prodotto fanno del CMK 
49 un apparecchio molto interessan¬ 
te: il software in dotazione mette in 
risalto le capacità sonore del compu¬ 
ter aiutando l’utente a scoprire le 
infinite potenzialità del SID. ■ 
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Grendel, 

il vostro renumber 


Un’utility per Spectrum 


di Stefano Cerutti 


C osì Grendel distrusse e de¬ 
vastò tutto il reame, uno 
contro tutti, in una lotta 
malefica, finché la sala reale fu de¬ 
serta e desolata. 

In questo modo vengono descritte le 
azioni di Grendel, un orrendo mo¬ 
stro che verrà poi ucciso da Beowulf, 
nel più antico poema della letteratu¬ 
ra anglosassone intitolato appunto 
“Beowulf’ e composto probabil¬ 
mente nel settimo secolo da un bar¬ 
do anonimo. 

Forse si sta già destando in voi il 
desiderio di rivivere con questo vi¬ 
deogioco le gesta dell’impavido ca¬ 
valiere e far mordere la polvere a 
Grendel, l'infernale divoratore di 
guerrieri? 

Sono spiacente di dovervi dare una 
delusione, ma il programma che ver¬ 
rà presentato in queste pagine ap¬ 


partiene alla categoria delle utility, e 
deve il suo nome bizzarro alle fun¬ 
zioni che assolve, infatti GREN¬ 
DEL significa “General RENumber 
e line DELeter”. 

In pratica, avete sottomano un renu¬ 
meratore totale e uno strumento ef¬ 
ficace per eliminare interi gruppi di 
linee BASIC evitando di cancellarle 
una per una. 

Terminata l’introduzione, veniamo 
quindi al sodo: il povero Grendel 
può starsene tranquillo! 


Come caricare Grendel 

Per prima cosa occorre digitare il 
listato 1 oppure 2, rispettivamente 
per Grendel 48 e Grendel 16, e sal¬ 
varlo poi su nastro. 

La linea zero contenente le due Def 
Fn... va inserita come linea uno e poi 
sistemata con Poke 23756, 0; essen¬ 
dosi assicurati di avere copiato tutto 
correttamente, si può dare Save 
“Grendel” Line 0. 

Se la linea uno non è diventata linea 
zero, bisogna sostituire il valore del¬ 
la variabile di sistema Prog (byte 


23635-6) al numero 23.756. 

Dopo aver verificato e resettato, si 
inizia a digitare attentamente il lista¬ 
to 3 oppure 4 e si dà un Run: occorre 
poi inserire ad uno ad uno (sigh!) i 
653 codici decimali di figura 1 oppu¬ 
re 2. 

Se non vengono segnalati errori, 
verrà prodotto il file da registrare 
subito dopo Grendel; 


Come utilizzare Grendel 

Se fosse necessario cancellare le 
linee, per esempio, comprese tra cin¬ 
quecento e ottocento, dando Print 
Fn d (500, 800) si risolverebbe la 
questione in una frazione di micro¬ 
secondo. 

Occorre sempre tenere presente che i 
numeri di linea di inizio e di fine 
sono inclusi nella cancellazione, e 
devono sempre essere realmente esi¬ 
stenti, altrimenti verrà prodotto un 
messaggio di errore. 

Allo stesso risultato porta l’inseri¬ 
mento di due numeri non consecuti¬ 
vi: ad esempio, Print Fn d (1100, 


Listato 1. Grendel bootstrap loader 48 Kbyte. 

0 >DEF FN d(D,R)=USR 64-700 : 

DEF FN r'(R,D)=USR 64322 : 

REM 

Grendel 4-8K 

© 1935 by Robin DraKe 


10 CLERR 64-699: LOflD ""CODE 
\ 20 print •' Per cancellare grup 

pi di linee adiacenti , dare un:" 

print fn d (start ,end* " 
30 PRINT ''"Per rinumerare il 
programma dare"''" print fn r (s 
tart,incremento)" 

4.0 print ''“Tenere presente eh 
e la linea '0' deve sempre esser 
e in memoria per permettere il 
funzionamento dei due a lgoritmi . 


Listato 2. Grendel bootstrap loader 16 Kbyte. 

0 >DEF FN d(D,R)=USR 31940 
DEF FN r(R,D)=USR 32062 

REM 

Grendel 16K 

© 1985 by Robin DraKe 


10 CLERR 31939: LORD ""CODE 
20 PRINT ” Per cancellare grup 
oi di linee adiacenti, dare un-." 
''" PRINT FN d(start , end)" 

30 print ''"per rinumerare il 
programma dare”''" print fn r (s 
ta r t,in cremento)" 

40 PRINT '"Tenere presente eh 
e la linea "0' deve sempre esser 
e in memoria per permettere il 
funzionamento dei due algoritmi. 
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Grendel, 
il vostro renumber. 


Listato 3. Caricatore decimale 
per Grendel 48. 


2 REM 

3 REM 
4- REM 

5 REM 

6 REM 

7 REM 

8 REM 

9 REM 


o-c> oaooaoo -c* o 

■c > 

I Caricatore BASIC 3- 
{ > 
■C del programma > 
{ > 
■C GRENDEL 48 > 

t > 

OO •OOO OOOO OO 


10 CLERR 64699: LET n=2410: LE 
T a=64700 

20 LET U =0 : FOR f=a TO a+19: I 
NPUT CH,S: POKE f,S: LET U=U +S : 
PRINT f,S: NEXT f: BEEP 1,30 
30 IF nou then PRINT "Errore 
nei byte compresi tra "'a;" e 
f- 1: STOP 

40 READ n: IF n =2t16 THEN BEEP 
10.4.20: PRINT 81; "Fai partire 
il registratore, poipremi un tas 
tO.": POKE 23624,63: SADE "GrenC 
ODE 43K"C0DE 64700,653: POKE 236 
24,56: PRINT «1;"Riavvoigi il na 
stro per verifica": UERIFY "Gren 
CODE 48K"C0DE 64700: GO TO 32767 
50 LET a = f: GO TO 20 
60 DATA 2160.2280,2650,2776,2© 
19.2873,2514.2181.2329,1939,2055 
. 1949,3357,2931,2739,2119,2169,2 
970,2988,2741,1610.2323,2541,259 
7,2115,1840,2201.1592,3016,1680, 
1798,762,65536 

70 REM © 1935 by Robin Drake 


Listato 4. Caricatore decimale 
per Grendel 16. 

1 REM OOOOOOOOtlOO 


2 REM -C > 

3 REM I Caricatore BASIC 3- 

4 REM -C 3- 

5 REM -C del programma > 

6 REM ì } 

7 REM -C GRENDEL 16 > 

8 REM -C 3- 


9 REM OOOtHJtlOOOOO 

10 CLEAR 31939: LET n=2170: LE 
T a=31940 

20 LET u =0: FOR f =a TO a+19: I 
NPUT ( f ) , S : POKE f,S: LET U=U+S: 
PRINT f, S : NEXT f: BEEP 1,30 

30 IF nou THEN PRINT "Errore 
nei byte compresi tra " a;" e 
f-1: STOP 

40 READ n: IF n=2?16 THEN BEEP 
10.4,20: PRINT «l;"Fai partire 
il registratore, poipremi un tas 
tO.": POKE 23624,63: SAUE "GrenC 
ODE 16K"C0DE 31940,653: POKE 236 
24,56: PRINT 81;"Ri avvoigi il na 
stro per verifica": UERIFY "Gren 
CODE 16K"C0DE 31940: GO TO 32767 

50 LET a = f: GO TO 20 

60 DATA 2160,2280,2650,2656.18 
99,2513,2394,2061,2è09,1699,1815 
,1829,3117,2931,2619,1999,2169,2 
730,2876,2493,1490,2203,2421,259 
7,2115,1840,2201.1592,2536.1680, 
1678,762,65536 

70 rem © 1985 by Robin Drake 


Figura 1. 

Codici decimali da inserire 

con il listato 3 (48 Kbyte). 
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Figura 2. Codici decimali da inserire con il listato 4 (16 Khyte). 
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32281 

205 

32282 

119 

32283 

0 

32284 

254 

32285 

34 

32286 

40 

3228? 

3 

32283 

35 

32289 

^4 

32290 

32291 

205 

32292 

119 

32293 

0 

32294 

254 

32295 

34 

32296 

32 

3229? 

249 

32298 

205 

32299 

119 

32300 

0 

32301 

254 

32302 

202 

32363 

194 

32304 

250 

32305 

126 

32306 

24 

3230? 

0 

32308 

205 

32309 

119 

32310 

0 

32311 

229 

32312 

209 

32313 

254 


32314 

13 

32315 

202 

32316 

10 

32317 

127 

32318 

254 

32319 

58 

32320 

40 

32321 

134 

32322 

254 

32323 

32 

32324 

40 

32325 

238 

32326 

205 

32327 

182 

32328 

24 

32329 

40 

32330 

19 

32331 

254 

32332 

48 

32333 

218 

32334 

250 

32335 

126 

32336 

254 

3233? 

58 

32333 

210 

32339 

250 

32340 

126 

32341 

205 

32342 

119 

32343 

0 

32344 

254 

32345 

32 

32346 

32 

32347 

234 

32348 

24 

32349 

24? 

32350 

254 

32351 

X3 

32352 

40 

32353 

7 

32354 

254 

32355 

58 

32356 

194 

3235? 

250 

32358 

126 

32359 

24 

32360 

0 

32361 

43 

32362 

43 

32363 

70 

32364 

43 

32365 

78 

32366 

43 

32367 

43 

32368 

43 

32369 

34 

32370 

93 

32371 

92 

32372 

213 

32373 

205 

32374 

122 

32375 

126 

32376 

24 

3237? 

50 

32378 

42 

32379 

83 

32330 

92 

32381 

237 

32382 

91 

32383 

78 

32384 

12? 

32385 

126 

32386 

230 

3238? 

192 

32388 

32 

32389 

11 

32390 

126 

32391 

184 

32392 

56 

32393 

16 

32394 

192 

32395 

35 

32396 

126 

32397 

185 

32398 

56 

32399 

11 

32400 

201 

32401 

33 

32402 

240 

32403 

216 

32404 

25 


32405 

208 

32406 

1? 

3240? 

15 

32408 

39 

32409 

201 

32410 

35 

32411 

229 

32412 

42 

32413 

76 

32414 

12? 

32415 

25 

32416 

235 

3241? 

225 

32418 

19? 

32419 

35 

32420 

73 

32421 

35 

32422 

70 

32423 

35 

32424 

9 

32425 

193 

32426 

24 

3242? 

213 

32428 

193 

32429 

213 

32430 

42 

32431 

93 

32432 

92 

32433 

229 

32434 

213 

32435 

19? 

32436 

209 

3243? 

205 

32438 

229 

32439 

25 

32440 

34 

32441 

93 

32442 

92 

32443 

193 

32444 

205 

32445 

43 

32446 

45 

32447 

42 

32448 

93 

32449 

92 

32450 

34 

32451 

91 

32452 

92 

32453 

42 

32454 

81 

32455 

92 

32456 

229 

3245? 

62 

32458 

255 

32459 

205 

32460 

1 

32461 

22 

32462 

205 

32463 

227 

32464 

45 

32465 

225 

32466 

205 

32467 

21 

32463 

22 

32469 

42 

32470 

91 

32471 

92 

32472 

34 

32473 

93 

32474 

92 

32475 

42 

32476 

176 

3247? 

92 

32478 

70 

32479 

43 

32480 

78 

32431 

235 

32482 

42 

32483 

93 

32484 

92 

32485 

9 

32486 

193 

3248? 

16? 

32438 

23? 

32439 

66 

32490 

235 

32491 

115 

32492 

35 

32493 

114 

32494 

193 

32495 

42 
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Seguito figura 2. 








324.96 

93 

32522 

35 

32548 

235 

32574 

71 

3249? 

92 

32523 

126 

32549 

6 

32575 

92 

32498 

35 

32524 

230 

32550 

0 

32576 

207 

32499 

35 

32525 

192 

32551 

79 

3257? 

255 

32500 

35 

32526 

202 

32552 

9 

32578 

4-2 

32501 

113 

3252? 

176 

32553 

235 

32579 

176 

32502 

35 

32528 

125 

32554 

126 

32580 

92 

32503 

112 

32529 

42 

32555 

230 

32581 

70 

32504 

35 

32530 

83 

32556 

192 

32582 

4-3 

32505 

35 

32531 

92 

3255? 

32 

32583 

78 

32506 

34 

32532 

58 

32558 

3 

32584 

9 

32507 

93 

32533 

76 

32559 

121 

32585 

35 

32508 

92 

32534 

12? 

32560 

24 

32536 

24 

32509 

14 

32535 

237 

32561 

233 

32587 

190 

32510 

0 

32536 

91 

32562 

34 

32588 

10 

32511 

128 

3253? 

78 

32563 

76 

32539 

0 

32512 

22 

32533 

127 

32564 

127 

32590 

10 

32513 

1 

32539 

114 

32565 

33 

32591 

0 

32514 

205 

32540 

35 

32566 

0 

32592 

201 

32515 

154 

32541 

115 

3256? 

0 

32593 

0 

32516 

25 

32542 

35 

32568 

34 

32594 

0 

3251? 

254 

32543 

73 

32569 

69 

32595 

0 

32518 

13 

32544 

35 

32570 

92 

32596 

0 

32519 

194 

32545 

70 

32571 

62 

32597 

0 

32520 

200 

32546 

35 

32572 

1 

32598 

0 

32521 

125 

3254? 

9 

32573 

50 

32599 

0 


300) non è l’equivalente di Print Fnd 
(300,1100). 

Spesso, durante l’attività preferita di 
un programmatore BASIC, si rende 
necessaria la renumerazione di un 
listato, sia perchè i numeri di linea 
sono talmente adiacenti da non per¬ 
mettere nuove inserzioni o aggiunte, 
sia per questioni di pura estetica (i 
listati stampati su una rivista è me¬ 
glio che siano molto ordinati...). 
Non è peraltro difficile procurarsi 
un semplice programmino, anche 
scritto in BASIC, che modifichi a 
nostro piacimento i numeri di linea: 
d’altra parte è assolutamente chiaro 
che se abbiamo per esempio un pro¬ 
gramma numerato con linee di in¬ 
cremento 10 e lo renumeriamo con 
base 1000 e incremento uno, il signi¬ 
ficato di un qualsiasi Goto all’inter¬ 
no del programma originale ne è 
stravolto, poiché cambia l’intero si¬ 
stema di riferimento. 

Per chiarire meglio l’idea è bene 
osservare la figura 3, che raffigura il 
programma da renumerare; come si 
nota, il passo delle linee è irregolare, 
e se diamo Run otteniamo una serie 
di Beep. 

Renumerandolo in base 100 e passo 
dieci utilizzando un normale pro¬ 
gramma, si ottiene ciò che è illustra¬ 
to dalla figura 4, e dando Run non 
otteniamo apparentemente nulla, se 


non un probabile 4-Out Of Memory 
Error dopo qualche secondo. 
Sarebbe necessario utilizzare un re¬ 
number che “esplori” il programma 
BASIC alla ricerca delle istruzioni 
Goto, Gosub, List, Run, Llist, Re- 
store e Line e ne modifichi i parame¬ 
tri rispettando la variazione di base e 
incremento. 

Tale operazione è preclusa a qual¬ 
siasi programma BASIC, poiché se 
per esempio un List 2 deve diventare 
List 14, si rende necessario lo sposta¬ 
mento verso indirizzi maggiori di 
tutto il programma, per fare spazio 
alla cifra aggiuntiva (“2” occupa set¬ 
te byte, mentre “14” ne occupa 8) e 
ciò è impossibile per un BASIC. 

E’ quindi per questo motivo che 
Grendel è stato scritto in linguag¬ 
gio macchina: dando un Print Fn r 
(100, 10) si può ottenere lo stesso 
listato di figura 5 che è l’esatto equi¬ 
valente dell’originale. 

Come poi si nota dalla figura 6, 
Grendel corregge solo i valori nume¬ 
rici fissi e non le espressioni: occorre 
quindi prestare una particolare at¬ 
tenzione. Inoltre, se per qualsiasi 
motivo il programma non può esse¬ 
re renumerato con i parametri pas¬ 
sati con la Fn, essi vengono sostituiti 
con i valori 1,1 avendo cioè base uno 
e stesso incremento. 

Ciò potrebbe verificarsi a causa di 


numeri che supererebbero il 9999 o 
per un Out Of Memory imminente. 


Figura 3 

1REM prova 
3 GO SUB 19 
7 GOTO 3 
19 BEEP 1,12 
23 RETURN 


Figura 4 

100 REM prova 
110 GO SUB 19 
120 GO TO 3 
130 BEEP 1,12 
140 RETURN 


Figura 5 

100 REM prova 
110 GO SUB 130 
120 GO TO 110 
130 BEEP 1,12 
140 RETURN 


Figure 3-4-5. Questi tre listati dimo¬ 
strano come sia necessario modifica¬ 
re un programma BASIC che deve 
essere renumerato, non solo con i nu¬ 
meri di linea iniziali, ma anche all'in¬ 
terno delle linee. 
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Accettabili 

GOTO 10 

GO SUB 50 

LIST 100 

LIST#3;100 

LLIST#2;1000 

RUN 30 

RESTORE 1180 

SAVE “Grendel” LINE 1 

LLIST 45 


Non accettabili 

GO TOa 

GOSUB 10-3 

LIST 100-a 

RESTORE Ir* 10 

RUNh + y/d 

LLIST#2;d-f 

SAVE “x” LINE VAL a$ 


Note e conclusione 

Poiché i parametri da utilizzare, 
con entrambi i programmi, sono tra¬ 
sferiti con l’ormai collaudatissimo 
metodo delle Fn, occorre sempre 
che in qualche parte del programma 
BASIC siano presenti le due Def 
Fnd (...) e Def Fn r(...). 

Qualche lettore particolarmente a- 
cuto potrebbe inoltre notare che an¬ 
che se si esegue una Print (Print 
Fn...) non viene stampato assoluta- 
mente niente. Se qualche ardimento- 


(1) calcolo dei parametri della 
Fn. 

(2) salto all’indirizzo specifica¬ 
to da Usr, nella Def Fn. 

(3) ritorno dalla subroutine. 

(4) assegnazione di Bc sul ca¬ 
nale desiderato. 

(5) nuovi comandi. 


Figura 6. Possono essere modificati 
da Grendel solo i numeri singoli (ac¬ 
cettabili) e non le espressioni numeri¬ 
che. 


Figura 7. Queste sono le operazioni 
che il microprocessore espleta per e- 
seguire un programma in linguaggio 
macchina con il sistema delle Def Fn. 




so non si dà per vinto e prova digita¬ 
re Let l = Fn r (...) e poi Print 1 
riceve un inspiegabile 2 Variable 
Not Found: ciò è dovuto ad una 
particolare tecnica di ritorno al BA¬ 
SIC che permette di evitare al valore 
dei registri Bc di venire assegnati alla 
Usr e in definitiva alla Fn, ed è utiliz¬ 
zabile da qualsiasi routine linguag¬ 
gio macchina che non necessiti di 
restituire valori numerici al BASIC, 
e sia da eseguire solo in modo diret¬ 
to. 

Invece di ritornare semplicemente 
con l’istruzione Ret, è possibile cau¬ 
sare un errore chiamando la routine 
apposita, dopo aver compiuto il la¬ 
voro richiesto, e decidere il codice 
dell’errore (nel nostro caso OK ha 
codice 255). 

Quindi, riferendosi al diagramma di 
figura 7, se interrompiamo lo svol¬ 
gersi delle azioni al punto (3) cioè di 
ritorno dalla subroutine con: 

RST 8 

DEFB codice-1 

il valore dei registri Bc non è deposi¬ 
tato da nessuna parte e se il coman¬ 
do di chiamata era stato eseguito da 
programma BASIC, questo si fer¬ 
merà con il codice di errore definito 
dalla direttiva Assembly Defb. ■ 
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ollum per C 64 

-Parte seconda- 


Concludiamo 
con i commenti 
al programma 


di Stefano Guarinetti 

I n questa seconda e conclusiva 
puntata viene presentato il li¬ 
stato del programma con il 
commento delle varie istruzioni. 

Nel seguire il commento di ogni i- 
struzione, o blocchi di istruzioni, 
all’interno dei sottoprogrammi è op¬ 
portuno fare riferimento alla figura 
1, (in fondo all’articolo) che ne evi¬ 
denzia i livelli di chiamata. 

Nel seguito, quando si farà riferi¬ 
mento a un sottoprogramma lo si 
indicherà con il numero della prima 
istruzione dello stesso. Se invece si 
farà riferimento specifico ad una i- 
struzione, o blocco di istruzioni, il 
numero o l’intervallo in questione 
verrà preceduto dall’abbreviazione 
“istr.” 


REMarks 

20 - La variabile PP viene posta a 1, 
non appena si è giocata la prima 
partita, e fa saltare la presentazione 
iniziale del programma in tutte le 
partite successive (vedi 60000). 

40 - Viene identificato il tipo di cal¬ 
colatore su cui è stato caricato il pro¬ 
gramma (Commodore 4032 o C 64), 
(vedi 63900). 

45-80 - Presentazione del program¬ 
ma. L’istruzione di linea 45 fa salta¬ 
re le Data che si riferiscono ai gradi 
di libertà (vedi 33000), per partire 
invece da quelle che contengono le 
posizioni dello schermo e i codici 
ASCII dei simboli grafici utilizzati. 
Il valore -1 serve solo da separatore 
ed è del tutto arbitrario. Nella pre¬ 
sentazione, alla variabile A viene 
sommato il registro base dello scher¬ 
mo RB, fissato dal 63900. 

110-150 - Data relativi ai gradi di 
libertà (vedi 33000). 

160-360 - Data relativi alla presenta¬ 
zione iniziale. 

365-550 - Proseguimento della pre¬ 


sentazione. 

600 - La ulteriore chiamata al 63900 
serve solo nel caso si tratti di partite 
successive alla prima, dove la istr. 40 
non viene considerata. 

605 - Vengono inizializzate tutte le 
variabili grafiche (vedi 47000). 
610-780 - Dimensionamento di ar- 
ray e matrici. SC, SS, SA e DR erano 
già state esaminate nella prima parte 
dell’articolo. 

DC ha lo stesso comportamento di 
DR, con la sola differenza che assu¬ 
me valore non nullo anche per le 
gallerie cosiddette rocciose (dove 
non c’è traccia e quindi 
DR(X,Y) = 0). Si vedrà in seguito il 
suo scopo (vedi 20000). 

PG$ e PJ$ memorizzano le mosse 
del giocatore e di Gollum, per co¬ 
struire il riepilogo al termine della 
partita (vedi 15000). Memorizzano 
le varie posizioni come stringhe di 
caratteri e non come numeri, con il 
solo scopo di risparmiare memoria 
(altrimenti avrebbero richiesto una 
struttura a matrice 50x50) (vedi i- 
struzioni 6600-6680; istruzioni 


Listato 1. Il programma Gollum. 

FILE: GOLLUM.LST PAG. 1 

1 REM **************** 

2 REM **** GOLLUM **** 

3 REM ** V38-221284 ** 

4 rem **************** 

5 REM 

20 IF PP=1 THEN RUN 600 
30 PRINT"{CLR}" 

40 GOSUB 63900 

45 READ A: IF AO-1 THEN 45 

50 FOR J=1 TO 138 

60 READ A,B :A=A+RB 

70 POKE A,B 

75 GOSUB 40000 

80 NEXT 

110 DATA 0,1,1.5,2,2,2,1.5,1,0 
120 DATA 1,1.5,2,2.5,3,2.5,2,1.5,1 
130 DATA 1,2,2.5,3,3,3,2.5,2,1 
140 DATA 1,1.5,2,2.5,3,2.5,2,1.5,1 
150 DATA 0,1,1.5,2,2,2,1.5,1,0 
160 DATA -1,368, 77, 392, 160, 428, 95, 3 
07, 78, 496, 223, 505, 105, 465, 160 


170 

DATA 

327, 

223, 287, 

78, 430, 233, 460 


, 78, 

412, 

160, 344 

, 101, 285, 78 

1 80 

DATA 

372, 

160, 314, 

101, 251, 100, 33 


6, 101, 446, 99, 340, 101, 335, 78 

1 90 

DATA 

387, 

160, 303, 

78, 394, 101, 434 


, 101 

, 432 

, 160, 374, 160, 416, 76 

200 

DATA 

459, 

78, 486, 

160, 472, 160, 468 


, 78, 

507, 

105, 489 

, 95, 349, 77 

210 

DATA 

406, 

233, 425, 

160, 452, 160, 29 


8, 78 

, 330 

, 160, 292, 78, 376, 101 

220 

DATA 

420, 

76, 447, 

160, 454, 160, 346 


, 78, 

326, 

160, 299 

, 77, 293, 77 

230 

DATA 

288, 

77, 294, 

78, 290, 78, 414, 


160, 

422, 

160, 453, 

78, 445, 78 

240 

DATA 

455, 

78, 450, 

78, 334, 223, 500, 


223, 

364, 

160, 347 

, 223, 247, 100 

250 

DATA 

448, 

78, 463, 

78, 462, 160, 411, 


76, 

385, 

160, 391, 

233, 305, 78 

260 

DATA 

324, 

233, 308, 

77, 365, 103, 388 


, 223 

, 404 

, 160, 429, 223, 369, 160 

270 

DATA 

354, 

101, 431, 

105, 449, 160, 38 


4, 101, 325, 160, 329, 233, 338, 223 

280 

DATA 

497, 

78, 504, 

160, 306, 77, 328, 


78, 

502, 

95, 456, 

78, 252, 100 
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Golluni 
per C 64 


Seguito listato Gollum. 


300 

DATA 

371 , 

101 , 

380, 

101 , 

427, 

160 

, 30 


4, 101 , 295, 77 

, 495 

, 160, 490, 1 

60 

310 

DATA 

485, 

160, 

470, 

105, 

498, 

95, 

246 


, 100 

, 342 

, 233 

, 487 

, 105, 474, 1 

01 

320 

DATA 

407, 

223, 

457, 

77, 

458, 

160, 

345 


, 223 

, 503 

, 160 

, 512 

, 95 

, 484 

, 95 


330 

DATA 

313, 

78, 444, 1 

60, 

499, 

1 60, 

501 


, 78, 

466, 

78, 

331 , 

1 60, 

333, 

78 


340 

DATA 

352, 

233, 

367, 

78, 

491 , 

160, 

492 


, 105 

, 494 

, 95, 

469, 

95, 

332, 

223 


350 

DATA 

378, 

160, 

382, 

1 60, 

390, 

77, 

408 


, 78, 

424, 

76, 

41 8, 

160, 

409, 

160 


360 

DATA 

405, 

103, 

461 , 

77, 

467, 

160, 

339 


, 78, 

51 3, 

78 







365 AR=700:GOSUB 40000 


370 AU$="S.GUARINELLl{ 2 SPAZIj- 
{ 2 SPAZI}PERSONAL SOFTWARE 
{ 2 SPAZI}1985" 

380 LU=LEN(AU$) 

390 C9=0:C8=39:R9=5:R8=14 
400 FQR J=1 TO 40 
410 POKERB+C9+(40*R9),64 
420 POKERB+C8+(40*R8),64 
430 C9=C9+1:C8=C8-1 
450 NEXT 

460 C9=0:C8=39:R9=17:R8=21 
465 KC=KC+1 
470 IF KC<2 THEN 400 
480 PRINT"{ 18 GIU’}"; 

490 FOR J=1 TO LU 

500 PRINTLEFT$(AU$,1);:AR=60:GOSUB40000 
520 AU$=RIGHT$(AU$,LU-J) 

540 NEXT 

550 PRINT"{HOME}{ 23 GIU'}PER COMINCIARE 
BATTERE {RVS} RETURN {OFF}" 

560 GET IN$:IF IN$=CHR$(13) THEN 600 
570 RA=RND(1) : GOTO 560 
600 GOSUB 63900 
605 GOSUB 47000 

ACCE E NASCOND. 


610 

DIM 

se 

(9, 

5) 

: REM 

640 

DIM 

ss 

(9, 

5) 

: REM 

650 

DIM 

SA 

(10 

,6) 

:REM 

700 

DIM 

DR 

(9, 

5) 

: REM 

710 

DIM 

DC 

(9, 

5) 

: REM 

720 

DIM 

PG$ (5 

1) 

: REM 

740 

DIM 

PJ$(5 

D 

: REM 

750 

DIM 

MP 

(9) 


: REM 

760 

DIM 

AV 

(9, 

5) 

: REM 

770 

DIM 

GL 

(9, 

5) 

: REM 

780 

DIM 

IP 

(9, 

5) 

: REM 


805 PRINT" {CLR}{ 4 GIU'H 4 DES}IN 50 MOS 
SE DEVI TROVARE GOLLUM " 

806 PRINT"{ 2 GIU 1 }{ 12 DES}BUONA FORTUNA 

! ! ! " 

807 GOSUB 33000 

810 PRINT" { 11 GIU’H 5 DES}VUOI LE ISTRU 
ZIONI ? "; 

811 GOSUB 50500 

812 IF US$="N" THEN 815 

814 GOSUB 31000 

815 PRINT"{CLR}" 

820 FOR T=39 TO 0 STEP-1 

830 POKE RB+T,160 :AR=1:GOSUB 40000 

840 NEXT 

850 FOR T=1 TO 21 

860 POKE RB+(40*T),160:AR=1:GOSUB 40000 


870 NEXT 

900 PRINT"{HOME}{RVS}{ 6 SPAZI}A 

{ 3 SPAZI}B{ 3 SPAZI}C{ 3 SPAZI}D 
{ 3 SPAZI}E{ 3 SPAZI}F{ 3 SPAZl}G 
{ 3 SPAZI}H{ 3 SPAZI}I "; 

950 PRINT"{HOME}{ 3 GIU'}{RVS}1{ 4 GIU'} 
{SIN}2{ 4 GIU 1 }{SIN}3{ 4 GIU'}{SIN}4 
{ 4 GIU'}{SIN}5" 

970 PRINT"{HOME}" 

980 GOSUB 63000 
1100 FOR Y=1 TO 50 
1180 CL=INT(RND(1)*9)+1 
1200 RW=INT(RND(1)*5)+1 
1210 IF IP(CL,RW)=1 THEN 1250 
1220 GOSUB 51000 
1230 PRINTRN$ 

1240 IP(CL,RW)=1 
1250 NEXT 
1300 GOSUB 62000 
2000 GOSUB 45000 
5000 REM SCELTA GIOCATORE 
5050 PRINT"{HOME}{ 23 GIU'}{OFF}PUNTO DI 
PARTENZA:" 

5250 GET RW$:IF RW$="" THEN 5250 
5270 IF ASC(RW$)<49 OR ASC(RW$)>53 THEN 5 
250 

5300 PRINT"{HOME}{ 23 GIU’H 18 DES}{RVS} 
"RW$" {OFF}" 

5400 GET CL$:IF CL$="" THEN 5400 
5450 IF ASC(CL$)<65 OR ASC(CL$)>73 THEN 5 
400 

5460 RW=VAL(RW$) 

5470 CL=ASC(CL$)-64 

5500 PRINT" {HOME} { 23 GIU’H 21 DES} {RVS} 
- "CL$" {OFF}" 

5520 IF AA=0 THEN GOSUB 57000:GOSUB 55000 
:LC=CL:WR=RW:VR$=TM$:GOTO 5700 
5530 LC=CL:WR=RW:VR$=TM$ 

5550 AA=1 
5570 GOSUB 43000 
5580 GOSUB 57000 
5590 GOSUB 51000 
5600 GOSUB 55000 
5620 Ci=CL:Rl=RW 
5630 CL=LC:RW=WR 
5650 GOSUB 51000 

5660 IF C1=LC AND Rl=WR THEN 5680 
5670 IF SA(CL,RW)=1 THEN PRINTVR$ 

5680 CL=C1:RW=R1 

5700 PRINT"{HOME}{RVS}{ 40 SPAZI}"; 

5705 PRINT"{HOME}{ 3 GIU'}{RVS} 

{ 4 GIU'}{SIN} { 4 GIU'}{SIN} 

{ 4 GIU'}{SIN} { 4 GIU’}{SIN} " 

5710 MS=MS+1 

5715 IF MS>=50 THEN EX=l:GOTO 6600 
5720 SA(CL,RW)=1 

5750 PRINT" {HOME} { 23 GIU'H 15 SPAZI }NUM 
ERO MOSSE:{ 4 SPAZl}";MS 
5800 IF MS/50INT (MS/5) THEN 6000 
5805 IF MS/20=INT(MS/20) THEN 6000 
5810 MS$=STR$(MS) 

5820 FOR J=1 TO 6 
5830 CC=1 

5840 PRINT"{HOME}{ 23 GIU’H 32 DES}{RVS} 
"MS$" {OFF}" 

5850 AR=200:GOSUB 40000 

5860 PRINT"{HOME}{ 23 GIU'H 32 DES}"MS$" 

II 

5870 AR=200:GOSUB 40000 
5880 NEXT J 
5885 CK=CL:RK=RW 

5887 IF NA>=3 THEN NT=3:GOTO 5890 

5888 NT=NA 

5890 FOR K=1 TO NT 
5900 CL=INT(RND(1)*9)+1 
5920 RW=INT(RND(1)*5)+1 
5930 IF SA(CL,RW)=0 THEN 5900 
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28000-28100; istruzioni 16100- 
16150; istruzioni 16300-16350). 

MP precisa per ogni mossa possibile 
la relativa convenienza. 

AV è una matrice di booleani. 
Quando Gollum lascia una traccia, 
se il riquadro corrispondente di AV 
vale 1, la traccia è confusa, se vale 0, 
non lo è. 

GL memorizza i gradi di libertà di 
ogni riquadro. 

IP è booleana e serve per la presenta¬ 
zione iniziale. Rende un po’ più ve¬ 
loce il disegno random delle gallerie, 
escludendo le posizioni uguali a 1 le 
quali indicano che il riquadro è già 
stato disegnato. 

2000 - Gollum si nasconde! (vedi 
45000). 

5000 - Inizia la parte di programma 
riservata all’interazione con l’uten¬ 
te. 

5050-5450 - Vengono introdotte la 
riga e la colonna della casella scelta 
come punto di partenza. I test 5270 e 
5450 servono a far “passare” solo i 
caratteri 1-5 per le righe e A-I per le 
colonne. 

5460-5470 - Vengono trasformate in 
numeri le variabili introdotte come 
stringhe per le righe e le colonne. 
5520 - La variabile booleana AA po¬ 
sta a 0 precisa che si tratta della 
scelta del punto di partenza. Viene 
aperta la galleria scelta (vedi 57000; 
vedi 55000) e vengono memorizzati 
gli indici, riga-colonna, della galle¬ 
ria stessa in LC e WR, nonché il tipo 
di galleria in VR$ (vedi 47000; vedi 
41000). Si vedrà in seguito l’uso di 
queste tre variabili. 

5530 - Viene effettuata la stessa ope¬ 
razione vista in 5520, in modo da 
“trattenere” i parametri fondamen¬ 
tali della galleria aperta precedente- 
mente, prima di aprirne una nuova. 
5550 - La variabile booleana AA po¬ 
sta a 1 precisa che la scelta del punto 
di partenza è stata effettuata e che 
quindi si passa al controllo degli 
spostamenti mediante il keypad nu¬ 
merico. 

5570 - Viene richiesto lo spostamen¬ 
to del giocatore, mediante il keypad 
I numerico, e visualizzato (vedi 
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43000). 

5580-5600 - Viene aperta la galleria 
su cui il giocatore si è fermato (vedi 
57000, 51000, 55000). 

5620-5680 - Non appena il giocatore 
si sposta da una galleria ad un’altra, 
quella “vecchia” viene ridisegnata 
con lo stesso simbolo grafico, ma in 
reverse. Questo affinché il giocatore 
sappia sempre qual è la sua posizio¬ 
ne (a meno di una chiusura della 
casella su cui si trova nel caso di una 
mossa multipla di 5 o 20). Questo set 
di istruzioni realizza quanto detto a 
parole. Da qui, inoltre, si capisce il 
significato delle istruzioni viste alle 
linee 5520 e 5530. Le variabili CI e 
RI sono temporanee e servono a 
conservare il valore della posizione 
corrente del giocatore. Il sottopro¬ 
gramma 51000 infatti riconosce so¬ 
lo, come parametri, le variabili CL e 
RW; pertanto gli indici (riga-colon¬ 
na) della vecchia galleria, contenuti 
in WR e LC, devono essere tempo¬ 
raneamente trasferiti in RW e CL, 
rispettivamente, e il contenuto di 
queste ultime deve essere preceden¬ 
temente salvato e quindi ripristinato 
(vedi istruzione 5680). Quello del 
passaggio dei parametri per i sotto¬ 
programmi è uno dei difetti più evi¬ 
denti del linguaggio BASIC. La va¬ 
riabile VR$ contiene il disegno della 
galleria tale e quale a prima, ma in 
reverse (vedi 47000, 41000, 55000). 
Il test 5660 significa che se il giocato¬ 
re non si è mosso, la vecchia galleria 
coincide con la nuova e quindi la 
VR$ non viene stampata. Nella i- 
struzione 5670 si precisa invece che 
la VR$ viene disegnata solo se la 
vecchia galleria è una galleria aper¬ 
ta. 

5700-5705 - Vengono cancellati dai 
bordi dello schermo le lettere e i nu¬ 
meri delle coordinate. 

5710-5715 - La variabile MS conta il 
numero delle mosse realizzate dal 
giocatore. La variabile booleana EX 
viene posta a 1 quando Gollum non 
è stato trovato, essendo terminate le 
50 mosse a disposizione. 

5720 - La posizione degli indici CL e 
RW, corrispondente alla galleria 



dove si trova ora il giocatore, viene 
posta uguale a 1 in SA, per indicare 
che la galleria è aperta. 

5800 - Si verifica se la mossa è un 
numero multiplo di 5; se lo è, si pas¬ 
sa alla istruzione 5810. 

5805 - Si verifica se la mossa è un 
numero multiplo di 20; se lo è, si 
passa alla istruzione 6000. 
5810-5880 - Viene fatto lampeggiare 
(a intermittenza reverse) per sei vol¬ 
te il numero', della mossa (vedi 
40000). 

5885 - Tutte le volte che viene usato 
il sottoprogramma 51000, come si è 
già visto per le istruzioni 5620-5680, 
i contenuti di CL e RW devono esse¬ 
re salvati (in questo caso da CK e 
RK) e, al termine, ripristinati. Que¬ 
sta operazione non verrà ulterior¬ 
mente commentata. 

5887-5970 - Procedura per la chiusu¬ 
ra di 3 gallerie scelte a caso tra quelle 
aperte. La variabile NA conta il nu¬ 
mero totale delle gallerie aperte. La 
variabile NT evita che il program¬ 
ma, come si dice in gergo, possa an¬ 
dare “in loop”: questo potrebbe ve¬ 
rificarsi nel caso in cui le gallerie 
aperte, ad esempio, fossero solo 2. 

In questo caso il calcolatore conti¬ 
nuerebbe a cercare una galleria a- 
perta, da chiudere, che non esiste. Se 
invece le gallerie aperte sono in nu¬ 
mero inferiore a 3, il totale viene 
fissato da NT. 

La variabile RN$ contiene il disegno 
della galleria chiusa: tutte le parti 
grafiche relative alle gallerie sono 
considerate variabili di tipo stringa 
(vedi 47000). Il sottoprogramma 
51000 serve per posizionare il curso¬ 
re nel punto dello schermo dove de¬ 
ve essere disegnata la variabile grafi¬ 
ca RN$ (vedi 51000). 

6000 - Inizia la procedura per la 
chiusura di tutte le gallerie aperte, se 
la mossa è un numero multiplo di 20. 
6100-6260 - Viene fatto lampeggiare 
(a intermittenza reverse) il numero 
della mossa (vedi 40000). 

6300-6390 - Vengono chiuse tutte le 
gallerie dal punto di vista di ciò che 
“vede” il computer e cioè azzerando 
tutte le posizioni della già vista ma- 
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Seguito listato Gollum. 

5940 GOSUB 51000 
5945 PRINTRN$; 

5950 SA(CL,RW)=0 
5960 NEXT K 

5970 NA=NA-3:IF NA<0 THEN NA=0 
6000 IF MS/20OINT (MS/20) THEN 6500 
6050 IF MS=0 THEN 6500 
6100 MS$=STR$(MS) 

6210 FOR P=1 TO 6 

6220 PRINT"{HOME}{ 23 GIU'}{ 28 DES} 

{ 3 V}{RVS}"MS$" {OFF}{ 3 V}" 

6230 AR=200:GOSUB 40000 

6240 PRINT"{HOME}{ 23 GIU'H 28 DES} 

{ 3 SPAZI}"MS$"{ 4 SPAZI}" 

6250 AR=200:GOSUB 40000 

6260 NEXT P 

6300 FOR P=1 TO 9 

6320 FOR L=1 TO 5 

6340 SA(P, L)=0 

6360 NEXT L 

6380 NEXT P 

6390 NA=0 

6400 GOSUB 62000 

6500 IF AA=1 AND CC=1 THEN CL=CK:RW=RK 

6510 CC=0 

6550 GOSUB 20000 

6600 MC$=STR$(CL):MR$=STR$(RW) 

6650 PJ$(HU)=MC$+MR$ 

6680 HU=HU+1 

6700 IF EXOl THEN 7000 

6800 GOSUB 30000 

6850 GOTO 60000 

7000 GOTO 5530 

15000 REM RIEPILOGO PERCORSO 

15100 FU$="{GIU'}{DES}{OFF}[<A>][<S>] 

{ 2 SIN}{GIU’}[<Z>][<X>]{OFF}" 
15120 KH$="{GIU'}{DES}{OFF}{ 2 SPAZI} 


{ 2 SIN}{GIU 1 }{ 2 SPAZI}" 

15130 LA$="0[< 2 T>)P{ 4 SIN}{GIU'}[<G>) 

{ 2 SPAZI}[<M>]{ 4 SIN}{GIU'}[<G>] 

{ 2 SPAZI}[<M>]{ 4 SIN}{GIU'}L 
{< 2 @>)@{ 3 SU}" 

15150 FG$="{GIU 1 }{DES}{RVS}£[<*>] 

{ 2 SIN}{GIU*}{OFF}[<*>}£" 

15160 FD$="M [<G>]N{ 4 SIN}{GIU'}[<@>]MN 
[<@>]T 4 SINTÌGIU'} NM { 4 SIN} 

{GIU 1 }N [<G>]M" 

15170 MS=1 

15180 PRINT"{CLR}" 

15190 CL=1:RW=1:GC=1:GR=1:XC=9:XR=4 
15200 FOR G=1 TO 5 

15300 FOR T=1 TO XC:GOSUB 51 000 :PRINTLA$: 
CL=CL+GC:NEXT 

15320 CL=CL+(-GC):RW=RW+(GR) 

15350 IF G=5 THEN 15500 

1 5400 FOR T=1 TO XR:GOSUB 51000:PRINTLA$: 
RW=RW+GR:NEXT 

15420 CL=CL+(-GC):RW=RW+(-GR) 

1 54 50 XC=XC-1 :XR=XR-1 :GC=-GC:GR=-GR 
15500 NEXT G 
15750 FOR U=1 TO 5 

15760 PRINT"{HOME}{ 21 GIU'}{ 4 DES}"KH$: 
AR=150:GOSUB 40000 

15800 PRINT"{HOME}{ 21 GIU'}{ 4 DES}"FU$" 
=TU":GOSUB 40000 
15810 NEXT U 
15820 FOR U=1 TO 5 

15825 PRINT"{HOME}{ 21 GIU'}{ 13 DES}"KH$ 
:GOSUB 40000 

15830 PRINT"{HOME}{ 21 GIU'H 13 DES}"FG$ 
"=GOLLUM":GOSUB 40000 
15835 NEXT U 

15900 PRINT"{HOME}{ 4 DES}PIU' VELOCE = 
{RVS} + {OFF} , PIU' LENTO = {RVS} 

- {OFF} 

1 5920 AR=1 500:GOSUB 40000 

15950 AR=700 

16000 FOR F=0 TO HU-1 

16010 PRINT"{HOME}{ 23 GIU'}{ 27 DES}MOSS 
A N."MS ; 

16020 IF EE=0 THEN 16100 

16030 CL=JC:RW=JR 

16040 GOSUB 51 000 :PRINTKH$ 

16100 CL=VAL(LEFT$(PJ$(F) ,2) ) 

16150 RW=VAL(RIGHT$(PJ$(F) , 1 )) 

16160 GOSUB 51 000 :PRINTFU? 


trice SA e la variabile delle gallerie 
aperte NA. 

6400 - Vengono disegnate le gallerie 
chiuse (vedi 62000). 

6500 - Viene ripristinato il valore 
delle variabili CL e RW solo nel caso 
in cui la mossa non sia la prima 
(AA= 1) e sia invece multipla di 5 
(CC = 1) nella cui procedura di chiu¬ 
sura delle gallerie è stato impiegato 
il già citato sottoprogramma 51000 
(se AA = 0 e CC = 0, CK e RK val¬ 
gono 0). 

6550 - Viene ceduto il controllo a 
Gollum (vedi 20000). 

6600-6680 - Viene memorizzata la 
mossa del giocatore nel già visto vet¬ 
tore PJ$. Dapprima vengono tra¬ 
sformate in stringhe di caratteri il 
valore della colonna e quello della 
riga dell’ultima posizione del gioca¬ 
tore: essendo CL e RW numeri infe¬ 


riori al 10, la somma delle stringhe 
relative sarà una stringa di soli due 
caratteri. La variabile HU conta le 
mosse del giocatore. 

6700-7000 - La variabile EX posta a 
1 (vedi istruzione 5715) segnala che 
le mosse possibili sono terminate e 
che Gollum non è stato trovato. Il 
tutto viene segnalato con un messag¬ 
gio all’utente (vedi 30000) e quindi si 
passa alle opzioni di fine partita (ve¬ 
di 60000). Se invece EX vale 0, si 
torna alla istr. 5530 e cioè si chiede 
una nuova posizione al giocatore. 
All’istruzione 7000 termina la prima 
parte del programma principale. I 
gruppi di istruzioni che seguono, 
quando non diversamente specifica¬ 
to, appartengono a sottoprogrammi 
interni al principale (a diversi livelli 
di annidamento). 

15000 - Questo sottoprogramma 


permette di rivedere, se lo si desidera 
(vedi 60000), il percorso seguito da 
Gollum e dal giocatore. 

15100-15160 - Inizializzazioni di va¬ 
riabili grafiche non contenute in 
47000, ma impiegate solo per il riepi¬ 
logo. 

• FU$: fa disegnare un quadrato, 
che rappresenta di volta in volta lo 
spostamento del giocatore. 

• KH$: ad ogni nuova posizione fa 
cancellare Gollum dal riquadro del¬ 
la posizione precedente. 

• LA$: fa disegnare ogni singola ca¬ 
sella, che rappresenta ogni galleria. 

• FG$: fa disegnare un rombo rever¬ 
se, che rappresenta di volta in volta 
lo spostamento di Gollum. 

• FD$: nel caso di ritrovamento di 
Gollum, da parte del giocatore, fa 
disegnare la “collisione” fra i due, 
nel momento in cui il quadrato FU$ 
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si sovrappone al rombo FG$. 

15170 - MS rappresenta il numero di 
mosse. E’ la stessa variabile impie¬ 
gata nel conteggio delle mosse du¬ 
rante il gioco. Si potrebbe logica¬ 
mente supporre che, in questo mo¬ 
do, sia andato perduto il valore delle 
mosse impiegate per trovare Gol¬ 
lum: questo, invece, è conservato nel 
contatore HU, che scandisce il vet¬ 
tore PJ$, (oppure in HG, che scandi¬ 
sce PG$). 

15190-15500 - Viene disegnata la 
mappa delle gallerie come all’inizio 
della partita, ma con due differenze. 
Intanto ora le gallerie vengono dise¬ 
gnate da LAS e non da RNS (che è 
praticamente il suo reverse). Inoltre 
le varie LAS si compongono a spira¬ 
le partendo dall’angolo superiore si¬ 
nistro dello schermo. Il breve algo¬ 
ritmo per la composizione della spi¬ 
rale è un “classico” nella didattica 
dei linguaggi di programmazione, 
pertanto ne daremo solo un breve 
accenno. La spirale viene costruita 
ripetendo cinque volte (istruzione 
15200) la sequenza di riquadri LAS, 
dapprima orizzontalmente (istru¬ 
zione 15300) e quindi verticalmente 
(istruzione 15400). Al termine di o- 
gni sequenza ne riprende una succes¬ 
siva, ma con un numero sempre infe¬ 



riore di riquadri (XC per le colonne 
e XR per le righe) e “a marcia indie¬ 
tro”. 

L’inversione di marcia al termine di 
ogni sequenza si ottiene invertendo 
di segno la variabile che incrementa 
la posizione delle righe GR e delle 
colonne GC. Ciò si realizza sempli¬ 
cemente imponendo a queste varia¬ 
bili, al termine di ogni sequenza, il 
segno meno. 

15750-15900 - Disegno e scrittura di 
messaggi che contengono alcune 
spiegazioni sui simboli che compaio¬ 
no nel riepilogo. 

15920-15950 - Il sottoprogramma 
40000 rallenta in alcuni punti l’ese¬ 
cuzione del programma. Il tempo di 
pausa è fissato di volta in volta dalla 
variabile AR (vedi 40000). 

16000 - Inizia il riepilogo del percor¬ 
so per le HU mosse del giocatore. 
16020-16040 - La variabile EE (boo- 
leana), posta a 0, precisa che la mos¬ 
sa è la prima e quindi la variabile 
KH$, che deve cancellare la vecchia 
posizione del giocatore, non serve 
ancora. Se invece EE vale 1, allora la 
vecchia posizione è data (vedi istru¬ 
zione 16200) da JC e JR. 
16100-16200 - Come si era già detto 
in principio, il vettore PJ$ è un array 
di stringhe. Il valore di riga e colon- 


mmm 


na deve pertanto essere estratto dap¬ 
prima come lettera a destra o a sini¬ 
stra, rispettivamente, della relativa 
posizione di PJ$ e quindi trasforma¬ 
to in numero. Una volta estratti i 
valori RW e CL, attraverso il sotto¬ 
programma 51000 si disegna FU$, 
che corrisponde al simbolo del gio¬ 
catore. 

16230 - Attraverso il sottoprogram¬ 
ma 56500 è possibile modificare il 
valore della pausa nell’ambito del 
sottoprogramma 40000, e cioè la ve¬ 
locità del riepilogo del percorso. 
16250-17000 - Procedimento identi¬ 
co a quanto visto per il giocatore, 
questa volta per il disegno del rom¬ 
bo che rappresenta Gollum. Il test 
16255 serve a saltare l’ultima parte 
del riepilogo quando le mosse sono 
terminate e Gollum non è stato tro¬ 
vato. Infatti Gollum effettua solo 49 
spostamenti e non 50 come il gioca¬ 
tore. 

17010-17150 - Se Gollum non è stato 
trovato (TV = 0), finisce il riepilogo. 
Altrimenti si fanno sovrapporre il 
rombo e il quadrato, stampando la 
FD$. 

17300-17350 - Termina il sottopro¬ 
gramma. 

20000 - Inizia il sottoprogramma 
che fa ragionare Gollum. 


Seguito listato Gollum. 

16200 JC=CL:JR=RW 

16230 GOSUB 56500:GOSUB 40000 

16250 IF EE=0 THEN 16300 

16255 IF F=HU-1 AND TV=0 THEN 17000 

16260 CL=QC:RW=QR 

16270 GOSUB 51000 :PRINTKH$ 

16300 CL»VAL(LEFT$(PG$(F),2)) 

16350 RW=VAL(RIGHT$(PG$(F),1)) 

16500 GOSUB 51000 :PRINTFGS 
16600 QC=CL:QR=RW 
16700 EE=1:MS=MS+1 
16800 GOSUB 56500 :GOSUB 40000 
17000 NEXT 

17010 IF TV=0 THEN 17300 

17020 PRINT"{HOME}{ 23 GIU'H 27 DES}MOSS 
A N."MS; 

1 7050 CL=JC:RW=JR:GOSUB 51000:PRINTKH6 
17100 CL=QC:RW=QR:GOSUB 51000 :PRINTFU$ 
17150 GOSUB 51 000 :PRINTFDS: GOTO 17300 
17300 PRINT"{HOME}{ 4 DES}{ 4 SPAZI)PER U 
SCIRE BATTERE {RVS} RETURN (OFF) 

{ 6 SPAZI}" 

17350 GET US$ : IF US$OCHR$ (1 3) THEN 17350 


17500 RETURN 

20000 REM RISPOSTA CALCOLATORE 

20040 JJ=1:GOSUB 29000 

20050 PRINT"(HOME){ 23 GIU’}(OFF) 

{ 12 SPAZI}" 

20100 AV(YC,YR)=0 

21000 Ul=ABS(CL-NC):U2=ABS(RW-NR) 

21050 PH=Ul+U2:V=1 
21070 IF PH>=8 THEN ZS=ZS+1 
21200 ON V GOTO 21310,21360,21410,21460,2 
1510,21560,21610,21660,21710 
21310 IF NOI AND NR<5 AND SA(NC-1,NR+1)= 
0 THEN IC=NC-1 : IR»NR+1: GOTO 22000 
21320 MP(V)»-20:GOTO 23500 
21 360 IF NR<5 AND SA(NC,NR+1)=0 THEN IC=N 
C:IR=NR+1: GOTO 22000 
21 370 MP(V)=-20 : GOTO 23500 
21410 IF NC<9 AND NR<5 AND SA(NC+1,NR+1)= 
0 THEN IC=NC+1:IR=NR+1:GOTO 22000 
21420 MP(V)20 : GOTO 23500 
21 460 IF NOI AND SA (NC-1 , NR) =0 THEN IC=N 
C-l:IR=NR:GOTO 22000 
21 470 MP(V)= - 20 : GOTO 23500 
21510 IC=NC:IR=NR:GOTO 22000 
21 520 MP(V)=-20 : GOTO 23500 
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Seguito listato Gollum. 


21560 IF NC<9 AND SA(NC+1,NR)=0 THEN IC=N 
C+l:IR=NR:GOTO 22000 
21 570 MP(V)=-20:GOTO 23500 
21610 IF NOI AND NR>1 AND SA (NC-1 ,NR-1 ) = 
0 THEN IC=NC-1 :IR=NR-1 : GOTO 22000 
21620 MP(V)=-20 : GOTO 23500 

21660 IF NR>1 AND SA(NC,NR-1)=0 THEN IC=N 
C:IR=NR-1:GOTO 22000 
21670 MP(V)=-20:GOTO 23500 
21710 IF NC<9 AND NR>1 AND SA(NC+1,NR-1)= 
0 THEN IC=NC+1:IR=NR-1:GOTO 22000 
21720 MP(V)=-20:GOTO 23500 
22000 PV=ABS(CL-IC)+ABS(RW-IR) 

22020 IF PV=0 THEN MP(V)=-20 : GOTO 23500 

22040 AK=INT(RND(1)*4)+1 

22050 UC=ABS(CL-IC):UR=ABS(RW-IR) 

221 00 IF PV<>4 OR UCOUR THEN 22200 
22110 PM=1 

22150 IF VD<VS THEN 22170 
22155 PV=PV-6 

22160 IF T2=l AND AK=3 AND Z2<Z1 THEN PV= 
PV+7 

22170 IF IX=3 THEN PV=PV-4 
22180 GOTO 22350 

22200 IF PV<>3 OR ABS(UC-OR)<>1 THEN 2225 
0 

22205 PM=1 

22210 IF VDCVS THEN 22230 
22215 PV=PV-6 

22220 IF T2=l AND AK=3 AND Z2<Z1 THEN PV= 
PV+7 

22230 IF IX=1 THEN PV=PV-4 
22240 GOTO 22350 

22250 IF PV<>2 OR UC=UR THEN 22300 
22255 PM=1 

22260 IF VD<VS THEN 22280 
22265 PV=PV-6 

22270 IF T2=l AND AK=3 AND Z2<Z1 THEN PV= 
PV+7 

22280 IF IX=2 THEN PV=PV-4 
22290 GOTO 22350 

22300 IF PVOl AND PV<>2 THEN 22350 
22310 PM=1 

22320 IF VS<VD THEN 22350 
22330 PV=PV-6 

22340 IF T2=l AND AK=3 AND Zl<Z2 THEN PV= 
PV+7 

22350 IF IM=V AND Tl=l AND INT(RND(1)*4)+ 
102 THEN PV=PV-2 

22400 IF V=5 AND IM=V AND MF=1 THEN PV=PV 
-2:MF=0 

22600 IF V=5 AND PM=1 AND Tl=l THEN PV=PV 
-20 

23000 PV=PV+SS(IC,IR) 

23050 PV=PV+GL(IC,IR) 

231 00 IF Tl=1 THEN KS=INT(RND(1)*3): GOTO 
23200 

231 50 IF Tl =0 THEN KS = INT(RND(1)*2) 

23200 IF DC(IC,IR)<>0 AND PM=1 THEN PV=PV 
- 4 : GOTO 23300 

23250 IF DC(IC,IR)<>0 THEN PV=PV-2 
23300 IF PM=0 THEN PV=PV+KS 
23320 IF PM=1 AND Tl=l THEN PV=PV+INT(KS/ 
2) 

23350 IF V=5 AND Tl=l THEN PV=PV-3 
23400 IF V=10-IM AND Tl=l THEN PV=PV-2 


23450 MP(V)=PV 

23500 PM=0:V=V+1:IF V<10 THEN GOTO 21200 

24000 IF ZS<5 THEN 26000 

24020 ZP=ZP+1 

24100 FOR V=1 TO 9 

24110 IF V=5 THEN MP(V)=-20 

24120 IF MP(V)<=-4 THEN 24140 

24130 MP(V)=-MP(V) 

24140 NEXT V 

24150 IF ZP>3 THEN ZS=0:ZP=0 
26000 V=1:MX=MP(V):IM=V 
26100 FOR V=2 TO 9 

26200 IF MP(V)>MX THEN MX=MP(V):IM=V 
26300 NEXT V 
26480 E=1 

26500 FOR V=1 TO 9 

26550 IF MP(V)=MX THEN MT(E)=V:E=E+1 

26600 NEXT V 

26650 IF E=2 THEN 26800 

26700 RA=INT(RND(1)*E):IF RA=0 THEN 26700 

26750 IM=MT(RA) 

26800 MV=IM 

26820 IF MV=5 THEN MF=MF+1 

27500 GOSUB 35000 

28000 MC$=STR$(NC):MR$=STR$(NR) 

28050 PG$(HG)=MC$+MR$ 

28100 HG=HG+1 

28500 PRINT"(HOME){ 23 GIU'}{RVS) PUOI MU 
OVERE {OFF}" 

28600 RETURN 

29000 REM RICERCA MS DOPPIA PIU' FREQ. 

29100 FM(1)=DF:FM(2)=DI:FM(3)=DN 

29150 HM=FM(1):IX=1 

29200 FOR T=2 TO 3 

29250 IF HM>FM(T) THEN 29400 

29300 HM=FM(T):IX=T 

29400 NEXT T 

29900 RETURN 

30000 REM GOLLUM NON TROVATO 
30010 BL$="{ 39 SPAZI}" 

30020 PRINT"{HOME}{ 23 GIU'}"BL$ 

30050 FOR J=1 TO 8 

30100 PRINT"{HOME}{ 23 GIU'}{ 14 DES} 

{RVS}***** 50 *****{OFF}" 

30150 AR=200:GOSUB 40000 

30200 PRINT"{HOME}{ 23 GIU'H 14 DES}**** 
* 50 ****** 

30250 AR=200:GOSUB 40000 
30300 NEXT J 

30500 PRINT"{CLR}{ 6 GIU’}{OES}LE TUE POS 
SIBILITA 1 DI TROVARLO SONO ":PRINT" 
{GIU'}{DES}TERMINATE." 

30550 PRINT" { 3 GIU’H 4 DES} GOLLUM E' RI 
USCITO A FUGGIRE !" 

30600 AR=3000:GOSUB 40000 

30800 RETURN 

31000 REM ISTRUZIONI 

31100 PRINT"{CLR}[< 40 I>]"; 

31110 PRINT"{RVS}{ 14 SPAZI}ISTRUZIONI 
{ 16 SPAZI}"; 

31120 PRINT"{RVS}[< 40 I>]"; 

31150 PRINT:PRINT"TU HAI LA POSSIBILITÀ' 
DI SPOSTARTI DI " 

31160 PRINT"UNO O DUE RIQUADRI PER OGNI M 
OSSA.":PRINT 

31170 PRINT"GOLLUM INVECE PUÒ' SPOSTARSI 
DI UN SOLO":PRINT"RIQUADRO PER VOLT 
A. 

31200 PRINT:PRINT"UNA VOLTA FISSATE LE CO 
ORDÌNATE{ 4 SPAZI}7 89"; 

31210 PRINT"DEL PUNTO DI PARTENZA (RIGA- 
* { 8 SPAZI}MBN "; 

31220 PRINT"COLONNA), USA I TASTI NUMERIC 
I{ 5 SPAZI}4C C6"; 

31 230 PRINT"PER SPOSTARTI :{ 22 SPAZI} NBM 

Il * 
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Gollum 
_ per C 64 


20040 - La variabile booleana JJ è di 
scarsa importanza ed ha scopi pura¬ 
mente grafici (vedi istruzioni 48100- 
48110). Il sottoprogramma 29000, 
attraverso la variabile IX, fornisce 
l’indice del tipo di mossa doppia più 
frequente del giocatore (vedi 29000). 
20050 - Viene cancellato il messag¬ 
gio “Puoi muovere”. 

20100 - Viene azzerata la posizione 
di AV, alla quale corrispondeva la 
mossa precedente, i cui indici di riga 
e colonna sono contenuti in YR e 
YC (vedi 35000), ad indicare l’elimi- 
nazione della eventuale traccia con¬ 
fusa. 

21000-21050 - Vengono determinate 
le distanze per colonna e per riga fra 
la posizione di Gollum (NC,NR) e 
quella del giocatore (CL,RW). Ven¬ 
gono infine sommate nell’unica va¬ 
riabile PH. L’uso della variabile V, 
invece, sarà chiaro in seguito. 

21070 - Se PH è maggiore o uguale a 
8, significa che Gollum e il giocatore 
sono molto distanti. Se ciò avviene, 
parte il contatore ZS, in base al qua¬ 
le, giudicherà dell’eccessiva perma¬ 
nenza del giocatore in una determi¬ 
nata zona. 

21200 - Inizia il ciclo per determina¬ 
re la convenienza di ogni mossa pos¬ 
sibile. La variabile V precisa il tipo 
di mossa ed ha lo stesso significato 
di quanto visto in figura 1, nella pri¬ 
ma parte dell’articolo. 

21310-21720 - Determinazione della 
pericolosità della posizione per ciò 
che riguarda la maggiore o minore 
distanza tra Gollum e il giocatore. I 
test che seguono sono tutti concet¬ 
tualmente uguali; pertanto ne esa¬ 
mineremo uno solo come esempio: 
istruzione 21410-21420. Si entra in 
questo test mediante il Computed- 
Goto di linea 21200, quando la V 
vale 3, e cioè quando Gollum si ac¬ 
cinge a valutare se sia possibile, e 
con quale pericolosità, effettuare lo 
spostamento di una casella a Sud- 
Est. Ciò è possibile, se Gollum non si 
trova nella posizione estrema dei ri¬ 
quadri del bordo inferiore e di quel- 
o destro (NC < 9 e NR < 5) e se la 
galleria nella quale si accinge ad en¬ 
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trare (che ha indici NR+ 1 eNC+ 1) 
non è aperta. Se la possibilità esiste, 
vengono fissati due valori provvisori 
IC e IR, che contengono i nuovi va¬ 
lori di colonna e riga. Se la possibili¬ 
tà non esiste, viene fissata addirittu¬ 
ra la convenienza della mossa 3 nella 
terza posizione del vettore mosse 
possibili, MP, dandole un valore 
convenzionale - 20, che verrà rico¬ 
nosciuto più avanti come quello di 
mossa non realizzabile. 

22000 - Per ogni V viene fissato 
quindi un valore di pericolosità PV, 
determinato esattamente come PH 
in istruzione 21050, ma con le varia¬ 
bili provvisorie IC e IR di colonna e 
riga. 

22020 - Questo test serve ad evitare 
che Gollum vada a nascondersi nella 
stessa galleria dove si trova il gioca¬ 
tore, qualora questa sia rimasta 
chiusa in seguito al raggiungimento 
di una mossa multipla di 5 o 20. La 
cosa sembra inutile, ma il computer 
non sa, se non glielo si dice, che in 
questo caso Gollum e il suo insegui¬ 
tore potrebbero “vedersi”. Per il cal¬ 
colatore nulla è mai troppo assurdo 
o scontato, e la realizzazione di que¬ 
sto test si è resa necessaria proprio 
perché in una delle numerose partite 
di prova Gollum, in un eccesso di 
furbizia, si era messo ad inseguire lui 
il suo inseguitore e, come se non ba¬ 
stasse, aveva probabilmente pensato 
di ingannarlo bene, nascondendosi 
là dove il giocatore non l’avrebbe 
mai sicuramente cercato. 

22040 - AK è uno dei parametri di 
imprevedibilità. Vedremo il suo im¬ 
piego in seguito. 

22050 - Vengono calcolate le diffe¬ 
renze fra riga e riga, colonna e co¬ 
lonna di Gollum e giocatore. In base 
al loro valore, infatti, si potrà valu¬ 
tare non solo la distanza, ma anche il 
tipo di mossa che separa Gollum dal 
suo inseguitore. 

22100-22340 - Inizia una serie di test 
che cerca di valutare la pericolosità 
della posizione che assumerebbe 
Gollum nel caso eseguisse la mossa 
V, secondo la distanza e il tipo di 
mossa che lo separerebbero dal gio¬ 


catore. 

22100-22180 - Questo gruppo di i- 
struzioni riguarda l’eventualità che 
con la mossa V Gollum si vada a 
collocare in una posizione raggiun¬ 
gibile dal giocatore in una sola mos¬ 
sa doppia, secondo la diagonale di 
entrambe le caselle. In questo caso la 
variabile booleana PM, che precisa 
la massima pericolosità, viene posta 
a 1. Se si osserva che il giocatore 
predilige le mosse doppie (VD) a 
quelle singole (VS) (vedi 43000), il 
parametro PV, che specifica, come si 
è visto, la convenienza (o la minor 
pericolosità) di ogni mossa, viene 
decrementato di 6 unità. Se tuttavia 
si è osservato che il giocatore se¬ 
guendo le tracce di Gollum (T2= 1: 
vedi 55000) ha la tendenza invece a 
preferire le mosse singole (ZI) a 
quelle doppie (Z2), e se il fattore di 
imprevedibilità AK vale 3 (AK è un 
intero compreso fra 1 e 4), allora PV 
sale di 7 unità. Comunque, se di tut¬ 
te le mosse doppie realizzate dal gio¬ 
catore questa è la più frequente (vedi 
29000), allora PV scende di 4 unità. 
22200-22290 - Con meccanismo a- 
nalogo a quanto visto per la posizio¬ 
ne distante due caselle secondo la 
diagonale vengono valutate le posi¬ 
zioni distanti due caselle, raggiungi¬ 
bili secondo la combinazone diago¬ 
nale-retta (o retta-diagonale) e retta- 
-retta. 

22300-22340 - Viene valutata la po¬ 
sizione distante una casella. 

22350 - Se lo spostamento scelto co¬ 
me migliore da Gollum alla mossa 
precedente (cioè il suo spostamento 
effettivo precedente) coincide con 
quello che si sta valutando (V), e se il 
giocatore è sulle tracce di Gollum 
(per la differenza fra TI e T2 si veda 
55000), nonché se è diverso da 2 un 
certo fattore di imprevedibilità com¬ 
preso fra 1 e 4, allora PV decresce di 
2 unità. In sostanza, si cerca di far sì 
che, se seguito, Gollum se ne vada 
un po’ a “zig-zag”. 

22400 - Si cerca di evitare che Gol¬ 
lum stia fermo troppo a lungo. MF 
vale 1, se la mossa precedente a IM 
(che è la precedente di quella di cui si 












stanno valutando tutte le possibili¬ 
tà) era 5. 

22600 - Si cerca di evitare, anzi direi 
che si vieta (vista l’entità del decre¬ 
mento di PV), a Gollum di fermarsi 
in situazioni di pericolo massimo 
(PM = 1) e di giocatore sulle sue 
tracce (TI = 1). 

23000 - Si somma a PV il tipo di 
galleria che si raggiungerebbe se la 
scelta della mossa fosse per lo spo¬ 
stamento V. Il tipo di galleria vale 0, 
se la galleria è a fondo terroso, I, se a 
fondo roccioso. In questo modo si fa 
si che Gollum abbia una certa predi- 
lezione per quelle gallerie dove le sue 
tracce non rimangono. 

23050 - Si somma a PV il valore del 
grado di libertà del riquadro, della 
cui posizione si sta valutando la con¬ 
venienza. 

23100-23150 - Viene fissato un altro 
parametro di imprevedibilità KS in 
maniera differente, a seconda che il 
giocatore sia sulle tracce di Gollum 
(TI = 1) oppure no.(Tl =0). Nel pri¬ 
mo caso K.S è un numero compreso 
tra 0 e 2; nel secondo caso tra 0 e 1. 
23200 - Quando la pericolosità è 
massima (PM = 1) si cerca di evitare 
che Gollum possa tornare su una 
casella per la quale è già passato non 
oltre quattro mosse prima. Si usa la 
matrice DC e non la DR come ma¬ 
trice di verifica, perché se Gollum 
fosse passato su una galleria a fondo 
roccioso, DR avrebbe, in corrispon¬ 
denza, valore nullo e quindi non sa¬ 
rebbe possibile sapere del suo pas¬ 
saggio. 

23300 - Se non ci si trova in situazio¬ 
ne di pericolo massimo, a PV viene 
sommato il parametro di imprevedi¬ 
bilità KS. 

23320 - Se il pericolo è massimo, 
invece, viene sommato un parame¬ 
tro di imprevedibilità ridotto. 

23350 - Si cerca di evitare che Gol¬ 
lum si fermi (V = 5) quando il gioca¬ 
tore è sulle sue tracce (TI = 1). 

23400 - Si cerca di evitare che Gol¬ 
lum torni indietro rispetto alla mos¬ 
sa effettiva precedente, se il giocato¬ 
re è sulle sue tracce (se per esempio la 
mossa precedente IM era stata la 3, 


per tornare indietro Gollum dovreb¬ 
be fare la 7 e cioè la 10-3). 
23450-23500 - Il valore di PV cosi 
calcolato per lo spostamento V vie¬ 
ne memorizzato nella V-esima posi¬ 
zione di MP. Quindi il ciclo iniziato 
alla 21200 si chiude e si passa a valu¬ 
tare un altro spostamento possibile, 
incrementando V. 

24000-24020 - Se ZS vale 5, significa 
che il giocatore sta rimanendo per 
troppo tempo nella stessa zona. A 
questo punto Gollum per 3 mosse 
(mediartte l’uso della variabile ZP) si 
muoverà scegliendo la mossa peg¬ 
giore fra quelle che hanno conve¬ 
nienza superiore a - 4. Poiché la scel¬ 
ta della mossa più conveniente av¬ 
viene per selezione di un massimo, la 
peggiore si ottiene imponendo il se¬ 
gno - a tutti i valori di MP superiori 
a -4. 

24100-24140 - Viene imposto, come 
si è detto sopra, il segno - alle conve¬ 
nienze delle singole mosse, contenu¬ 
te in MP, escluso la 5 (stai fermo) e 
quelle con convenienza inferiore a - 
4. 

24150 - Quando ZP supera il valore 
3 si torna alla normale procedura. 
26000-26300 - Viene cercata la con¬ 
venienza più alta MX e l’indice IM 
della corrispondente posizione in 
MP. 

26480-26600 - Vengono cercate e- 
ventuali convenienze uguali fra di 
loro e uguali a MX, in MP, riem¬ 
piendo il vettore MT; il vettore MT 
non contiene le convenienze, bensi 
gli indici corrispondenti alle posizio¬ 
ni in MP, che, come si è visto, rap¬ 
presentano gli spostamenti possibili. 
26650 - Se E vale 2, significa che 
esiste un solo elemento massimo (u- 
guale a se stesso; da qui E = 2) e 
quindi non vi sarà alcuna ulteriore 
selezione. 

26700-26800 - Se invece le conve¬ 
nienze uguali sono più di una, allora 
ne verrà estratta una a caso median¬ 
te l’indice RA, che è un numero 
compreso tra 1 ed E-1. La RA-esima 
posizione di MT contiene quindi lo 
spostamento più conveniente, che 
viene memorizzato in MV. 


26820 - Se la MV fa star fermo Gol¬ 
lum, allora viene incrementata la già 
vista variabile MF (vedi istruzione 
22400). 

27500 - Viene chiamato il sottopro¬ 
gramma che effettua l’aggiornamen¬ 
to di tracce e riquadri (vedi 35000). 
28000-28100 - Come per il giocato¬ 
re, anche per Gollum viene memo¬ 
rizzato in PG$ lo spostamento rea¬ 
lizzato, che servirà per il riepilogo 
finale. 

28500-28600 - Viene stampato il 
messaggio “Puoi muovere” e quindi 
il sottoprogramma termina. 

29000 - Questo sottoprogramma 
calcola quale fra le mosse doppie 
realizzate dal giocatore è la più fre¬ 
quente (diagonale-diagonale; retta- 
retta; retta-diagonale). 

29100 - Vengono memorizzate nel 
vettore FM: la DF, che conta le 
mosse diagonale-retta (e viceversa) 
(vedi istruzione 43870); la DI, che 
conta le mosse retta-retta (vedi istru¬ 
zione 43900) e la DN, che conta le 
mosse diagonale-diagonale (vedi i- 
struzione 43890). 

•29150-29900 - Vengono ricercati il 
più alto valore memorizzato e quin¬ 
di collocato in HM, e l’indice corri¬ 
spondente in IX, che è la variabile 
utilizzata dal sottoprogramma 
20000. Quindi il sottoprogramma 
termina. 

30000 - Questo sottoprogramma 
fornisce una serie di messaggi nel 
caso Gollum non sia stato trovato. 
30010-30300 - Viene fatto lampeg¬ 
giare il numero 50, per indicare che 
le mosse a disposizione del giocatore 
sono'terminate. 

305Ó0-30800 - Stampa di un messag¬ 
gio e fine del sottoprogramma. 
31000-32000 - Questo sottopro¬ 
gramma fa comparire sul video, a 
richiesta, le istruzioni fondamentali 
del gioco. 

33000 - Questo sottoprogramma 
provvede al riempimento della ma¬ 
trice GL, che contiene i gradi di li¬ 
bertà dei riquadri. 

33010 - Viene inizializzato il punta¬ 
tore alle Data, per la loro lettura. 
33100-33600 - Viene riempito GL, 
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Seguito listato Gollum. 


31260 PRINTSPC(35)"1 2 3"; 

31300 PRINT"{ 40 C}"; 

31320 PRINT"SIGNIFICATO DEI RIQUADRI APER 
TI :":PRINT 

31330 PRINTRQ8:PRINT"{ 4 SU}{ 5 DES}GALLE 
RIA VUOTA A FONDO TERROSO." 

31340 PRINT"{ 5 DES}GOLLUM NON E' PASSATO 
DI QUI." 

31350 PRINT:PRINT"{ 8 DES}( CONTINUA ) - 
BATTERE {RVS} RETURN {OFF}" 

31360 GET US$:IF US$<>CHR$(13) THEN 31360 

31 500 PRINT"{CLR}"; :PRINTRS$:PRINT" 

{ 4 su}"; 

31520 PRINT"{ 5 DES}GALLERIA VUOTA MA A F 
ONDO ROCCIOSO" 

31530 PRINT"{ 5 DES}SE GOLLUM E' PASSATO 
DI QUI LE SUE" 

31540 PRINT"{ 5 DES}TRACCE NON SONO COMUN 
QUE RIMASTE.":PRINT:PRINT 

31650 PRINTD75:PRINT"{ 4 SU}"; 

31660 PRINT"{ 5 DES}GOLLUM E' PASSATO DI 
QUI ED E' " 

31670 PRINT"{ 5 DES}ANDATO VERSO NORD-OVE 
ST.":PRINT:PRINT 

31680 PRINT:PRINTD55:PRINT"{ 4 SU}"; 

31690 PRINT"{ 5 DES}GOLLUM E’ PASSATO DI 
QUI MA ESSENDO"; 

31700 PRINT"{ 5 DES}MOLTO VICINO HA LASCI 
ATO VOLUTAMEN-"; 

31720 PRINT"{ 5 DES}TE TRACCE CONFUSE." 

31750 PRINT:PRINT 

31760 PRINT"LE TRACCE CONFUSE RESTANO TAL 
I PER UNA " 

31770 PRINT"MOSSA A PARTIRE DA QUANDO SON 
O STATE LA-"; :PRINT"SCIATE." 

31780 PRINT"OGNI TRACCIA SI CANCELLA DOPO 
QUATTRO{ 2 SPAZI}" 

31790 PRINT"MOSSE A PARTIRE DA QUANDO E' 
STATA LA-":PRINT"SCIATA." 

31800 PRINT:PRINT"PER USCIRE BATTERE 


{RVS} RETURN {OFF}" 

31 900 GET US$ : IF US$OCHR$ (1 3) THEN 31900 
32000 RETURN 

33000 REM GRADI LIBERTA' RIQUADRI 

33010 RESTORE 

33100 FOR J=1 TO 5 

33150 FOR T=1 TO 9 

33200 READ A 

33250 GL(T,J)=A 

33300 NEXT T 

33350 NEXT J 

33600 RETURN 

35000 REM AGGIORNAMENTO RIQUADRI 
35050 YC=NC:YR=NR 
351 00 IF MV= 8 THEN NR=NR-1 

35150 IF MV=2 THEN NR=NR+1 

35200 IF MV=4 THEN NC=NC-1 

35250 IF MV=6 THEN' NC=NC+1 

35300 IF MV=1 THEN NC=NC-1 :NR=NR+1 

35350 IF MV=3 THEN NC=NC+1:NR=NR+1 

35400 IF MV=7 THEN NC = NC-1 :NR=NR-1 

35410 IF MV=9 THEN NC=NC+1:NR=NR-1 

35420 IF SC(OC(1),OW(l))<>1 THEN 35460 
354 30 SC(OC(1 ) ,OW(l ) ) =0:DR(OC(1 ) ,OW(l ) ) =0 
:DC(OC(1),OW(1))=0 
35460 FOR P=1 TO 4 
35470 OC(P)=OC(P+l):OW(P)=OW(P+1) 

35475 SC(OC(P),OW(P))=P 
35480 NEXT P 

35500 SC(NC,NR)= 5 : OC(5)=NC:OW(5)=NR 

35550 IF SS(YC,YR)=0 THEN DR(YC,YR)=MV 

35560 DC(YC,YR)=MV 

35650 RA=INT(RND(1)*2)+1 

35700 IF RA=1 THEN AV(YC,YR)=1 

37000 RETURN 

40000 REM SUBR. ARRESTO VIDEO 
40100 FOR C=1 TO AR:NEXT:RETURN 
41000 REM RIQUADRI CON TRACCE 
41300 IF AV(CL,RW)=1 THEN TN$=D5$:TM$=" 
{RVS}"+D5$:CF=1:GOTO 42000 
41 450 IF DR(CL,RW)=1 THEN TN$=Dl$ :TM$ = B1$ 


quindi il sottoprogramma termina. 
35000 - Questo sottoprogramma 
provvede aH’aggiornamento delle 
tracce e dei riquadri. 

35050 - Vengono memorizzati in YC 
e YR la colonna e la riga della prece¬ 
dente posizione di Gollum. 
35100-35410 - A seconda dello spo¬ 
stamento scelto da Gollum (MV) 
vengono determinati gli indici di co¬ 
lonna e riga della nuova posizione. 
35420 - Gli array OC e OW conten¬ 
gono rispettivamente gli indici delle 
colonne e delle righe delle ultime 5 
posizioni di Gollum. La prima posi¬ 
zione, di indice 1 quindi, contiene la 
mossa più “vecchia”. Se la corri¬ 
spondente posizione della matrice 
SC non vale 1, significa che Gollum 
è tornato in una casella per la quale 
era già passato precedentemente. 
L’eliminazione della traccia più vec¬ 
chia, e quindi l’azzeramento di SC, 
porterebbe, di conseguenza, anche 
all’eliminazione di una traccia più 


recente. Il test 35420 impedisce che 
ciò avvenga. 

35430 - Se invece la posizione in SC 
della mossa più vecchia vale 1, allora 
si provvede al suo azzeramento. 
Vengono inoltre azzerate le rispetti¬ 
ve posizioni delle due matrici DR e 
DC per la gestione delle tracce e il 
passaggio di Gollum. 

35460-35480 - Gli indici di colonne e 
righe in OC e OW vengono fatti 
scorrere di una posizione, in modo 
che il primo indice vada perduto e il 
quinto sia reso disponibile. La ma¬ 
trice SC, per ogni colonna e riga, 
assume il valore della variabile di 
conteggio P del ciclo For: vale cioè 4 
per la mossa più recente e 1 per quel¬ 
la più vecchia, 3 e 2 per quelle inter¬ 
medie. 

35500 - Assume valore 5 in SC la 
nuova posizione di Gollum. Inoltre, 
nella quinta posizione di OC e OW, 
resasi disponibile, vengono collocati 
gli indici di colonna e riga della nuo¬ 


va galleria. 

35550 - Il tipo di traccia lasciato da 
Gollum ha la stessa codifica degli 
spostamenti. La matrice DR assume 
il valore della traccia di tipo MV, in 
corrispondenza della nuova posizio¬ 
ne di Gollum, solo se la galleria non 
è a fondo roccioso. 

35560 - La matrice DC, invece, assu¬ 
me il valore M V anche se la galleria è 
a fondo roccioso. 

35650-37000 - Se il numero RA (che 
può valere 1 oppure 2) vale 1, allora 
la traccia lasciata da Gollum è con¬ 
fusa e ciò lo si realizza ponendo a 1 
la matrice di booleani AV. Quindi il 
sottoprogramma termina. 
40000-40100 - Questo sottopro¬ 
gramma crea pause di tempo diver¬ 
se, a seconda del valore della varia¬ 
bile AR, fissata di volta in volta dal 
programma o sottoprogramma 
chiamante. 

41000 - Questo sottoprogramma 
converte i codici della matrice DR 
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41500 IF DR(CL,RW)=2 
{RVS}"+TB$ 

41550 XF DR(CL,RW)=3 
{RVS}"+D3$ 

41600 IF DR(CL,RW)=4 
{RVS}"+TS$ 

41650 IF DR(CL,RW)=6 
{RVS}"+TD$ 

41700 IF DR(CL,RW)=7 
{RVS)"+D7$ 

41750 IF DR(CL,RW)=8 
{RVS}"+TA$ 

41800 IF DR(CL,RW)=9 


THEN TN$=TB$:TM$=" 
THEN TN$=D3$:TM$ = " 
THEN TN$=TS$:TM$=" 
THEN TN$=TD$:TM$=" 
THEN TN$=D7$:TM$=" 
THEN TN$ =TA$:TM$ = " 
THEN TN$=D9$:TM$=B9$ 


42000 RETURN 

43000 REM PERCORSO GIOCATORE 
43020 CM=0:DP=0:SG=0 

43050 GS$="{GIU’}{DES}{RVS}UI{ 2 SIN} 
{GIU'}JK{OFF)" 

43060 CH$="{GIU'}{DES}{RVS}{ 2 SPAZI} 

{ 2 SIN){GIU'}{ 2 SPAZI}{OFF}" 

43120 GET PR$:IF PR$=" U THEN 43120 
43150 IF ASC(PR$)<13 THEN 43120 
43200 IF ASC(PR$)>13 AND ASC(PR$)<49 THEN 
43120 

43250 IF ASC(PR$)*53 OR ASC(PR$)>57 THEN 
43120 

43300 IF PR$=CHR$(13) AND CM=0 THEN 43120 

43310 IF PR$=CHR$(13) THEN VS=VS+1:SG=1 
43320 IF PR$OCHR$ (13) AND CMOO THEN VD= 
VD+1:DP=1 
43350 GOSUB 52000 
43360 IF ME=1 THEN 43120 
43400 GOSUB 51000 
43450 CM=CM+1 
43500 PRINTGS8 

43510 IF CM=1 THEN CY=CL:RY=RW:VM=VAL(PR$ 
) 

43550 IF CM<2 THEN 43120 
43700 CX=CL:RX=RW 
43720 CL»CY:RW=RY 
43750 GOSUB 51000 

43800 IF SA(CL,RW)=0 THEN PRINTCHS:GOTO 4 
3850 

43820 IF DR(CL,RW)<>0 THEN GOSUB 41000:PR 
INTTM$:GOTO 43850 

43830 IF SS(CL»RW)=1 THEN PRINTR2$:GOTO 4 
3850 

43840 IF SS(CL» RW)=0 THEN PRINT"{RVS}"RQ$ 


43850 CL“CX:RW=RX 

43855 IF PR$=CHR$(13) THEN 44000 

43860 NQ=VAL(PR$) 

43870 IF NQOVM THEN DF=DF+1 :GOTO 44000 
43890 IF (NQ=VM) AND (NQ=1 OR NQ=3 OR NQ= 
7 OR NQ=9) THEN DN=DN+1:GOTO 44000 
43900 IF NQ=VM THEN DI=DI+1 
44000 RETURN 

45000 REM DISP. RIQUADRI SPECIALI 

45100 CL=INT(RND( 1 )*9)+1 

45150 RW=INT(RND(1)*5)+1 

45200 SC(CL,RW)=5:OC(5)=CL:OW(5)=RW 


45220 NC=CL:NR=RW 
45300 TD=INT(RND(1)* 11 ) +5 
45350 FOR N=1 TO TD 
45400 CL=INT(RND(1)*9)+1 
45450 RW=INT(RND(1)*5)+1 
45500 SS(CL,RW)=1 
45540 NEXT N 
46000 RETURN 

47000 REM INIZIALIZZAZIONE RIQUADRI 
47100 TS$="M{ 2 SPAZI }N{ 4 SINHGIU'} << 

{ 4 SIN}{GIU 1 }{< 4 F>]{ 4 SIN} 

{GIU'}N{ 2 SPAZI}M" 

47120 TD$="Ml 2 SPAZljNl 4 SIN}{GIU'} >> 

{ 4 SIN}{GIU'}[< 4 D>]{ 4 SIN} 

{GIU'}N{ 2 SPAZI}M" 

47140 TA$="mT<F>] N{ 4 SIN}{GIU’} [<F>]t 
{ 4 SIN}{GIU T } [<F>]t { 4 SIN} 

{GIU'}N(< F>] M" 

47160 TB$="mT<F>] NT 4 SIN}{GIU'} (<F>]V 
{ 4 SIN}{GIU t } [<F>]V { 4 SIN} 

{GIU'}N(<F>} M" 

47180 D7$="mT 2 SPAZI}N{ 4 SIN}{GIU'} 

[<B>} t { 4 SIN}{GIU'} -[<B>] 

{ 4 SIN}{GIU'}N{ 2 SPAZI}M" 

47200 Di$="M{ 2 SPAZI}N{ 4 SIN}TgIU'} < 
{RVS)T<B>]{OFF} I 4 SIN}{GIU'} 

{RVS}[<B>]{OFF}V { 4 SIN}{GIU'}N 
{ 2 SPAZI}M" 

47210 Bl$="{RVS}M{ 2 SPAZI}N{ 4 SIN} 

{GIU'} <{OFF}(<B>){RVS} { 4 SIN} 
{GIU’) {OFF}[<B>]{RVS}V { 4 SIN} 
{GIU'}N{ 2 SPAZI}M" 

47220 d9$="mT 2 SPAZI}nT 4 SIN}{GIU'} > 
{RVS)T<B>]{OFF} I 4 SIN}{GIU'} 

{RVS}[<B>]{OFF}t { 4 SIN}{GIU'}N 
{ 2 SPAZI}M" 

47230 B9$="{RVS}M{ 2 SPAZI}N{ 4 SIN} 

{GIU') >{OFF}(<B>]{RVS} { 4 SIN} 
{GIU'} {OFF}(<B>){RVS}t { 4 SIN} 
{GIU'} N { 2 SPAZI}M" 

47240 d3$="mT 2 SPAZI}Nl 4 SIN}{GIU’} 

(<B>]V { 4 SIN}{GIU'} > [<B>] 

{ 4 SIN}{GIU'}N{ 2 SPAZljM" 

47260 D5$="M{ 2 SPAZl}N{ 4 SIN}TGIU'} 

[<C>]tv[<V>1{ 4 SIN}{GIU*}[<D>)X 
[<F>] { 4 SIN}{GIU'}N{ 2 SPAZI}M" 
47300 SB$="{ 4 SPAZI}{ 4 SIN}{GIU'} 

{ 4 SPAZI}{ 4 SIN}{GIU'}{ 4 SPAZI} 

{ 4 SIN}{GIU'}{ 4 SPAZI}{ 3 SU}" 
47350 SP$="{ 4 DES}{ 4 SIN}{GIU'} 

{ 4 DES}{ 4 SIN}{GIU'}{ 4 DES} 

{ 4 SIN}{GIU'}{ 4 DES}{ 3 SU}" 

47360 ST$="{ 5 SPAZI}{ 5 SIN}{GIU'} 

{ 5 SPAZlH 5 SIN} {GIU ' } { 5 SPAZI} 

{ 5 SIN}{GIU'}{ 5 SPAZI}{ 5 SIN} 
{GIU'}{ 5 SPAZI}{ 5 SIN}{ 4 SU}" 
47400 RQ$="M{ 2 SPAZI}N{ 4 SIN}{GIU’} OP 
{ 4 SIN} {GIU 1 } L@ { 4 SINHGIU'TN 
{ 2 SPAZI}M" 

47420 RV$»"{< 4 B>){ 4 SIN}{GIU'} 

[< 4 B>){ 4 SIN}{GIU'} [< 4 B>} 

{ 4 SIN}{GIU’}[< 4 B>)" 

47440 RS$="M{ 2 SPAZl}N{ 4 SIN}{GIU'} 

{RVSJT 2 SPAZI}{OFF} { 4 SIN}{GIU'} 
{RVS}{ 2 SPAZI}{OFF} { 4 SIN) 

{GIU'}N{ 2 SPAZI}M" 

47460 R2$="{RVS}M{ 2 SPAZl}N{ 4 SIN} 
{GIU'} [< 2 +>) {4 SIN}{GIU'} 

[< 2 +>] {4 SIN}{GIU'}N{ 2 SPAZI} 

M{OFF)" 

47480 RN$="{RVS}0[< 2 T>]P{ 4 SIN}{GIU'} 
[<G>]{ 2 SPAZI}[<M>]{ 4 SIN}{GIU'} 
(<G>}{ 2 SPAZI} [<M>]{ 4 SINHGIU'} 

L [ < 2 @>]@{OFF}" 

47500 X$="UI[<@>}UI{ 5 SIN}{GIU'}N*B*M 
{ 5 SIN}{GIU'}M {RVS} {OFF} N 
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nelle variabili che permettono il di¬ 
segno vero e proprio delle tracce (ve¬ 
di 47000). 

41300 - Se la matrice AV ha un 1 
nella casella in esame, allora la trac¬ 
cia deve essere disegnata confusa, 
prescindendo da DR. 

41350-41800 - A seconda del valore 
di DR vengono fissati i valori delle 
variabili grafiche TN$ e TM$, che 
rappresentano rispettivamente la 
galleria aperta e la galleria aperta 
reverse. Quindi il sottoprogramma 
termina. 

43000 - Questo sottoprogramma in¬ 
troduce e visualizza lo spostamento 
del giocatore dopo la scelta del pun¬ 
to di partenza, e cioè quando vengo¬ 
no usati i tasti numerici. 
43020-43060 - Inizializzazione di va¬ 
riabili. Di quelle numeriche il signifi¬ 
cato sarà chiarito al momento del- 
l’utilizzo. Per quanto riguarda quel¬ 
le grafiche la GS$ fa disegnare una 
piccola circonferenza là dove il gio¬ 
catore transita: CHS la elimina, sov¬ 
rapponendovi un quadrato reverse. 
43120-43320 - Vengono introdotti i 
caratteri dall’ 1 al 9, con l’esclusione 
del 5, e il Return. La variabile CM 
conta i caratteri introdotti e impedi¬ 
sce che il Return venga battuto come 
primo carattere. Se viene battuto il 
Return come secondo carattere, si¬ 
gnifica che la mossa è a spostamento 
singolo, e in questo caso viene incre¬ 
mentato il contatore delle mosse sin¬ 
gole VS e la variabile booleana SG 
viene posta a 1 (vedi 55000). Se il 
secondo carattere non è Return, si¬ 
gnifica che la mossa è a spostamento 
doppio: viene incrementata la varia¬ 
bile che conta le mosse doppie VD e 
viene posta a 1 la variabile booleana 
DP (vedi 55000). 

43350 - Viene chiamato il'sottopro- 
gramma che, a seconda della varia¬ 
bile PR$ introdotta, calcola il nuovo 
valore di colonna e riga (vedi 52000). 
43360 - Se è stato commesso un erro¬ 
re (ME=1; vedi 52000), l’ingresso 
della PR$ deve essere ripetuto (si ha 
errore, ad esempio, quando si batte 
lo spostamento 4, trovandosi in 1,3). 
43400-43500 - Si posiziona il cursore 


(vedi 51000), si incrementa la già vi¬ 
sta variabile CM e si disegna il cer¬ 
chio GS$. 

43510 - Se il carattere introdotto è il 
primo (CM = 1), deve essere salvata 
la posizione dello spostamento par¬ 
ziale di una casella nel caso di mossa 
a spostamento doppio. Infatti, dopo 
la stampa del secondo cerchio sulla 
galleria definitiva il precedente cer¬ 
chio sulla galleria di transito deve 
essere cancellato da CH$. La varia¬ 
bile VM serve per il calcolo del tipo 
di mossa realizzato (vedi istruzioni 
43860-43900). 

43550 - Se CM è inferiore a 2, viene 
introdotto il secondo carattere o il 
Return. 

43700-43850 - Viene cancellato il 
cerchio disegnato sulla casella su cui 
si è passati, ma non ci si è fermati. 
Nel cancellare il cerchio bisogna na¬ 
turalmente ridisegnare quello su cui, 
a sua volta, si era sovrapposto il cer¬ 
chio stesso. Bisogna quindi distin¬ 
guere i casi in cui la galleria era chiu¬ 
sa o aperta, e in questo caso se era 
vuota senza tracce o con tracce. In¬ 
nanzitutto viene posizionato il cur¬ 
sore con il consueto salvataggio per 
CL e RW (vedi 51000). Alla istruzio¬ 
ne 43800 si verifica che la galleria di 
transito sia chiusa, nel qual caso si 
disegna il quadrato CHS, che can¬ 
cella GSS. Alla istruzione 43820 si 
verifica che la galleria sia aperta e 
con tracce, nel qual caso si decodifi¬ 
ca la traccia (vedi 41000) e la si dise¬ 
gna. Alla istruzione 43830 si verifica 
che la galleria sia aperta, senza trac¬ 
ce, ma a fondo roccioso. Alla istr. 
43840 si verifica che la galleria sia 
aperta, ma a fondo terroso. Quindi 
vengono ripristinati i valori di CL e 
RW. 

43855 - Se l’ultimo carattere intro¬ 
dotto era Return, la mossa è sempli¬ 
ce e il sottoprogramma termina. 
43860-44000 - Se invece l’ultimo ca¬ 
rattere è un numero, allora la mossa 
è doppia e quindi si passa a valutare 
il tipo di mossa doppia. Questa in¬ 
formazione servirà a Gollum per ca¬ 
pire con quale criterio si muove il 
giocatore. Le variabili che conten- 


! 

\ 


gono i due spostamenti singoli a 
comporre la mossa doppia sono VM 
e NQ. 

Se VM e NQ sono diverse, significa 
che la mossa è del tipo retta-diago¬ 
nale (o diagonale-retta), nel qual ca¬ 
so si incrementa il relativo contatore 
DF. Se VM e NQ sono uguali e una 
di esse ha valore 1, 3, 7 oppure 9, 
allora la mossa è del tipo diagonale¬ 
diagonale e si incrementa DN. Se 
invece non si tratta del caso prece¬ 
dente, allora, per esclusione, si incre¬ 
menta il contatore DI, che corri¬ 
sponde allo spostamento retta-retta. 
Quindi il sottoprogramma termina. 
45000 - Questo sottoprogramma 
“nasconde” Gollum all’inizio della 
partita e determina il numero e la 
dislocazione delle gallerie a fondo 
roccioso. 

45100-45220 - Vengono estratte una 
riga e una colonna a caso; la corri¬ 
spondente posizione in SC viene po¬ 
sta uguale a 5 e nella quinta posizio¬ 
ne dei due vettori OC e OW (vedi 
35000) vengono posti i valori di CL e 
RW. I valori estratti vengono trasfe¬ 
riti poi in NC e NR, perché queste 
sono le variabili impiegate dai sotto¬ 
programmi che utilizza Gollum. 
45300-46000 - Viene fissato il nume¬ 
ro totale TD di riquadri rocciosi, che 
è casuale e varia tra 5 e 15. Vengono 
quindi estratte TD coppie di numeri, 
per colonne e righe, casuali e le posi¬ 
zioni relative nella matrice SS ven¬ 
gono poste a 1. Quindi il sottopro¬ 
gramma termina. 

47000-47600 - In questo sottopro¬ 
gramma vengono inizializzate le va¬ 
riabili grafiche (anziché variabili sa¬ 
rebbe più corretto dire, in questo 
caso, costanti) del programma. 
48000 - Questo sottoprogramma 
viene attivato quando il giocatore 
trova Gollum. 

48040-48110 - Vengono aggiunti 
messaggi e cancellate righe diverse, a 
seconda che ci si trovi in prima mos¬ 
sa (JJ = 0) o in mosse successive 
(JJ = 1). 

48300-48650 - Vengono cancellate 
graficamente tutte le gallerie, ad ec¬ 
cezione di quella dove è nascosto 
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Gollum, e sulla quale si trova il gio¬ 
catore. 

48600-50000 - Viene fatto lampeg¬ 
giare il volto stilizzato di Gollum 
(X$) nella posizione in cui è stato 
trovato. Quindi il sottoprogramma 
termina. 

50500-50950 - Questo sottopro¬ 
gramma fa stampare un cursore in¬ 
termittente per la Get, nel caso di 
domande rivolte all’utente (esem¬ 
pio: “Vuoi le istruzioni?”). 

51000 - Questo sottoprogramma, di 
impiego assai diffuso, posiziona il 
cursore sullo schermo, partendo dai 
valori di colonna (CL) e riga (RW). 
51100-51600 - Il sottoprogramma 
consiste di due cicli For, che ad ogni 
“passata” e per CL ed RW volte 
spostano il cursore, in orizzontale e 
verticale, di una lunghezza pari al 
lato di una singola casella. 


52000 - Questo sottoprogramma 
traduce la variabile PRS, vista in 
43000, in modifiche sulla riga e sulla 
colonna della posizione del giocato¬ 
re, in modo da determinare la nuova 
posizione. 

52090 - La variabile ME è booleana, 
e vale 0, se la mossa dell’utente è 
corretta, 1, se è sbagliata. Qui viene 
semplicemente inizializzata. 
52100-53000 - La conversione avvie¬ 
ne in due modi leggermente differen¬ 
ti, a seconda che si tratti di sposta¬ 
menti che prevedono la modifica 
della riga o della colonna o di en¬ 
trambe. Nel secondo caso, infatti, la 
prevenzione dell’errore viene fatta 
sul test di conversione stesso. Fac¬ 
ciamo un esempio: supponiamo che 
il giocatore si trovi nella posizione 
3,4 (o C-4). Il secondo 2 lo portereb¬ 
be, per così dire, fuori dalla mappa 


delle 45 caselle. Dato che però il va¬ 
lore della colonna è rimasto costan¬ 
te, è sufficiente riportare la riga al 
valore limite 5 e segnalare l’errore, 
impedendo la conversione del se¬ 
condo 2. 

Supponiamo ora, invece, che sem¬ 
pre dalla 3,4 (colonna, riga) si batta 
prima il 2, ma poi il 3. A questo 
punto, per quanto riguarda il 3 solo 
la riga ha violato i limiti, ma non la 
colonna, che quindi viene ad assu¬ 
mere un nuovo valore. Pertanto, 
nella correzione il giocatore viene a 
trovarsi su una casella (in questo ca¬ 
so la 4.5) che non è più quella sulla 
quale si era fermato. 

55000 - Questo sottoprogramma de¬ 
termina il contenuto di una galleria 
in seguito alla sua apertura. 

55010 - La variabile CF è booleana e 
quando vale 1 significa che il gioca- 
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{ 5 sinHgiu'} m*n { 5 sinHgiu'} 

{ 2 SPAZIH<T>)T”2 spazi)" 

47550 BN$="{ 5 SPAZI){ 5 SIN){GIU') 

{ 5 spazi} { 5 sinHgiu * 1 ){ 5 spazi) 

{ 5 sinHgiu'){ 5 spaziH 5 sin) 
(giu'}{ 5 spazi)" 

47600 RETURN 

48000 REM GOLLUM TROVATO 

48040 PRINT"{HOME)( 23 GIU'){ 32 DES)"MS+ 

1 

48050 TV=1 

48100 IF JJ=1 THEN PRINT"{HOME) 

{ 23 GIU'}{OFF}{ 14 SPAZI)" 

48110 IF JJ=0 THEN PRINT"{HOME} 

{ 23 GIU'}{OFF}{ 18 SPAZI}" 

48300 PRINT"{HOME}{ 2 GIU'}{ 4 DES}"; 
48350 FOR Q=1 TO 5 
48400 FOR Y=1 TO 9 

48450 IF CL=Y AND RW=Q THEN PRINTSP$; :GOT 
O 48550 

48500 PRINTSB5; 

48550 NEXT Y 

48600 PRINT"{ 3 DES}{ 3 GIU'}{DES}"; 

48650 NEXT Q 
48700 GOSUB 51000 

49120 PRINT"{SIN}";:AR=500:GOSUB 40000 
49150 FOR J=1 TO 10 

49200 PRINTX?;:PRINT"{ 4 SU}{ 5 SIN}"; 
49250 AR=150:GOSUB 40000 
49300 PRINTSTS; 

49350 AR=150 :GOSUB 40000 
49400 NEXT 
50000 RETURN 

50500 REM CURSORE INTERM. PER LA GET 
50600 PRINT"{RVS} SI {OFF}{ 4 SPAZI} 


{ 8 SIN}"; 

50620 GET US$:IF US$="S" OR US$="N" THEN 
50950 

50650 AR=300:GOSUB 40000 

50700 PRINT"{OFF}{ 4 SPAZI}{RVS} NO {OFF} 
{ 8 SIN}";. 

50720 GET US$:IF US$-"S" OR US$="N" THEN 
50950 

50750 AR=300:GOSUB 40000 
50900 GOTO 50600 
50950 RETURN 

51000 REM POSIZIONAMENTO DISEGNO RIQUADRI 

51100 PRINT"{HOME}{ 2 GIU'}{ 4 DES}"; 
51150 IF CL=1 THEN 51350 
51200 FOR J=1 TO CL-1 
51250 PRINT"{ 4 DES}"; 

51300 NEXT 

51350 IF RW=1 THEN 51600 
51400 FOR J=1 TO RW-1 
51450 PRINT"{ 4 GIU'}"; 

51500 NEXT 
51600 RETURN 

52000 REM CONVERSIONE SPOSTAMENTI 
52090 ME=0 

52100 IF PR$<>"1" THEN 52150 
52120 IF CL>1 AND RW<5 THEN CL=CL-1 :RW=RW 
+1:GOTO 52150 
52130 ME=1 

52150 IF PR$="2" THEN RW=RW+1 
52200 IF PR$<>"3" THEN 52250 
52220 IF CL<9 AND RW<5 THEN CL=CL+1:RW=RW 
+ 1 : GOTO 52250 
52230 ME=1 

52250 IF PR$="4" THEN CL=CL-1 
52300 IF PR$="6" THEN CL=CL+1 
52350 IF PR$<>"7" THEN 52400 
52370 IF CL>1 AND RW>1 THEN CL=CL-1 :RW=RW 
-1:GOTO 52400 
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52380 ME=1 

52400 IF PR$="8" THEN RW=RW-1 
52450 IF PR$<>"9" THEN 52500 
52470 IF CL<9 AND RW>1 THEN CL-CL+1:RW=RW 
-l.-GOTO 52500 
52480 ME=1 

52500 IF CLCl THEN CL=1:ME=1 
52540 IF CL>9 THEN CL=9:ME=1 
52560 IF RW<1 THEN RW=1:ME=1 
52580 IF RW>5 THEN RW=5:ME=1 
53000 RETURN 

55000 REM GESTIONE RIQUADRI NUOVI 
55010 CF=1:VT=T2 

55020 IF SC(CL,RW)=5 THEN GOSUB 48000:GOT 
0 60000 

55040 IF DR(CL,RW)>0 AND SC(CL,RW)>0 THEN 
GOSUB 41000 :PRINTTN$: GOTO 55200 
55060 IF SS(CL,RW)<>0 THEN 55080 
55070 PRINTRQ$:TM$="{RVS}"+RQ$ 

55072 IF Tl=l AND CF=1 THEN T2=0 
55075 GOTO 55300 

55080 IF SS(CL,RW)*1 THEN PRINTRSS:TM$=R2 
$:T2=0:GOTO 55300 
55200 Tl=1 :T2= 1 

55300 IF Tl=1 AND T2=0 THEN FP=FP+l:GOTO 
55350 

55320 FP=0 

55350 IF FP> = 5 THEN Tl =0 :T2 = 0:FP=0 
56000 IF VT=1 AND DP=1 THEN Z2=Z2+1 
56020 IF VT=1 AND SG=1 THEN Zl=Zl+l 
56100 RETURN 

56500 REM RALLENTAMENTO DI AR 
56510 GET AC$:IF AC$<>"+" AND AC$<>"-" TH 
EN 56600 

56520 IF AC$ = "-" THEN AR=AR+500: GOTO 5654 
0 

56530 IF AC$="+" THEN AR=AR-500 
56540 IF AR<=0 THEN AR=0 
56550 GOTO 56510 
56600 RETURN 

57000 REM APERTURA RIQUADRI 
57260 IF SA(CL,RW)=1 THEN 58500 
57300 GOSUB 51000 
57350 NA=NA+1 
57800 FOR J=1 TO 3 

57820 PRINTRV$;SPRINT"{ 3 SU}{ 4 SIN}"; 

57840 AR=150:GOSUB 40000 

57850 PRINTRN8; :PRINT"{ 3 SU}{ 4 SIN}"; 

57870 AR=150iGOSUB 40000 

57900 NEXT 

58500 RETURN 

60000 REM OPZIONI DI FINE PARTITA 

60002 IF EX=1 THEN 60100 

60005 PRINT"{HOME}{ 23 GIU'}{ 13 DES} 

{ 27 SPAZI}"; 

60010 FOR T=21 TO 1 STEP-1 

60015 POKE RB+(40*T),32:AR=1sGOSUB 40000 

60020 NEXT 

60025 FOR T=0 TO 39 

60030 POKE RB+T,32:AR=1:GOSUB 40000 

60035 NEXT 

60100 PRINT"{CLR}"; 

60200 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 
SPRINT 

60250 IF MS=0 THEN 60350 
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Figura 1. 
Quadro 
generale della 
disposizione dei 
sottoprogrammi 
e dei livelli 
di chiamata. 


tore ha perduto le tracce di Gollum. 
La variabile VT assume il valore di 
T2 (che indica mossa per mossa se il 
giocatore è sulle tracce di Gollum) 
della mossa precedente. 

55020 - Se il riquadro scelto, o su cui 
è arrivato il giocatore in seguito ad 
una mossa, ha nella matrice SC il 
valore 5, significa che Gollum è li e 
che quindi è stato scoperto. Si chia¬ 
ma pertanto il sottoprogramma 
48000, che informa l’utente del “lie- 
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Gl i 
ultimi 
saranno 

I 

primi? 

Giudicalo tu* 

Anche se, in ordine di tempo, 
siamo gli ultimi a uscire con libri 
* "dedicati" ai più diffusi home e 
personal computer, siamo convinti 
che il lettore attento ed esigente 
apprezzerà la qualità dei contenuti 
e la loro presentazione. 
Abbiamo selezionato e tradotto i 
best-seller mondiali che accolgono 
quanto di più utile è stato scritto 
per il tuo computer. 

Scegli a colpo sicuro! 

Puoi ordinare direttamente i titoli presentati 
compilando ed inviando il coupon pubblicato 
oppure acquistarli presso i più qualificati 
computer shop e le migliori librerie. 

CEDOLA DI ORDINAZIONE - LIBRI \ 

Compilare e spedire in busta chiusa a: 

J.sort- Viale Restelli 5 - 20124 Milano 
tei. 02/6880841-6880842-6880843 

Ordino i seguenti libri per un importo totale di L . 

+ L. 2.000 come contributo fisso per spese di spedizione 

Cod . Cod . 

Co d. . Co d. . 

Cod . Co d . 

□ Contanti allegati 

□ Assegno allegato n° . 

□ Ho spedito l'importo a mezzo vaglia postàie 

□ Ho versato l'importo sul CCP n° 19445204 intestato a 
J. soft ■ Milano 

□ Pagherò in contrassegno al postino al ricevimento dei j 
volumi 

Nome . j 

Cognome .| 

Via .| 

CAP . Città . Prov . j 

Se richiesta fattura - codice fiscale .j 

Data .I 


I* soft. libri di qualità 

Per Cemm*4ere *4 

Giochi fantastici per il C 64 

Cod. ASOCOOl L. 42.000 
(inclusa cassetta) 


Un libro pensato e 
realizzato per il 
divertimento dell'utente 
del C 64; contiene 19 
giochi di vario genere tutti 
ampiamente commentati. 
L'attento studio dei 
programmi potrà essere 
vantaggioso per 
l'apprendimento delle 
tecniche di 
programmazione. 

Il libro del C 64 

Volume 1 

Cod: ASOC 010 L. 24.000 
(inclusa cassetta) 

Il libro del C 64 

Volume 2 

Cod.ASOCOll L. 24.000 
(inclusa cassetta) 


I due libri illustrano a 
fondo le possibilità del 
Comm odore 64. Un 
compendio di utili 
consigli, e quant'altro è 
necessario per conoscere 
meglio il proprio 
calcolatore. Esempi pratici 
completano l'esposizione 
in modo chiaro ed 
esauriente. 







Per ZX Spectrum 

15 giochi grafici per 
ZX Spectrum 

Cod. ASOC002L. 24.000 
(inclusa cassetta) 

Un fantastico volume con 
15 entusiasmanti giochi 
grafici per il tuo ZX 
Spectrum. Tutti i 
programmi sono "pronti 


C 64: suono e grafica - 
Volume 1 

Cod. ASOC008L. 24.000 
(inclusa cassetta) 

C 64: suono e grafica - 

Volume 2 

Cod. ASOC009 L. 24.000 
(inclusa cassetta) 

Due volumi che non 

C ossono mancare nella 
iblioteca dell'utente 
Commodore. Una miniera 
di idee e suggerimenti per 
la programmazione del 
tuo personal computer. 
Una vasta serie di 
programmi esemplificativi 
guidano il lettore al 
miglior sfruttamento del 
Commodore 64. 


all'uso" e ampiamente 
commentati. I programmi 
sono scritti sfruttando 
appieno le capacità del 
calcolatore ed il loro 
studio può giovare a 
chiunque intenda affinare 
le proprie tecniche di 
programmazione. 



Inoltre, i Paper Book: la 
raccolta dei programmi 
suddivisi per macchina di 
Paper Soft, il primo 
settimanale ai software su 
carta per il tuo computer. 

Paper Book - programmi 
per Apple // - 
Cod. ASOC 005 L. 18.000 
Paper Book - programmi 
per VIC 20- 

Cod. ASOC 003 L. 18.000 

Paper Book - programmi 
per Commodore 64 - 
Cod. ASOC004 L. 18.000 
Paper Book - programmi 
per Texas TI 99/4A - 
Cod. ASOC 007 L. 18.000 
Paper Book - programmi 
per ZX Spectrum - 
Cod. ASOC 006 L. 18.000 


l SOft 


progRA**' 




Ul 

Viale Restelli, 5-20124 Milono - tei. 02/6680841-6860642-6880843 


In ogni volume, 
corredato di cassetta, 
oltre 40 programmi 
per il tuo computer: 
giochi grafici, 
utility, arcade, 
adventure una miscela 
esplosiva di software 
“pronto all'uso"! 























Seguito listato Gollum. 


60300 PRINT"{ 8 DES}VUOI RIVEDERE IL PERC 
ORSO ?" :PRINT:PRINT:PRINT 
60350 PRINT"{ 8 DES}VUOI GIOCARE ANCORA ? 
":PRINT:PRINT:PRINT 

60400 PRINT"{ 8 DES}NON VUOI GIOCARE PIU' 
?" :PRINT:PRINT:PRINT 
60500 AR=400:GOSUB 40000 
60600 PRINT"{HOME}{ 5 GIU'}"; 

60620 IF MS=0 THEN 60700 

60650 PRINT"(GIU 1 }{ 3 DES}[< 3 I>]{GIU'} 

{ 3 SIN}{RVS} 1 {GIU 1 }{ 3 SIN} 

[< 3 I>]{OFF}":AR=500:GOSUB 40000 
60700 PRINT"{GIU'}{ 3 DES}(< 3 I>){GIU'} 

{ 3 SIN} {RVS} 2 {GIU’H 3 SIN} 

[< 3 I>){OFF}":GOSUB 40000 
60750 PRINT"{GIU'}{ 3 DES}[< 3 I>]{GIU’} 

{ 3 SIN}{RVS} 3 {GIU'}{ 3 SIN} 

[< 3 I>]{OFF}":GOSUB 40000 
61000 GET RI$:IF RI$="" THEN 61000 
61100 IF RI$="1" AND MSOO THEN GOSUB 150 
00 : GOTO 60100 

61200 IF RI$="2" THEN PP=l:GOTO 20 
61300 IF RI$<>"3" THEN 61000 
61310 PRINT"{CLR}{ 10 GIU'}":PRINT" 

{ 15 DES}A PRESTO !{ 5 GIU'}" 

61320 END 

62000 REM COMPLETAMENTO RIQUADRI 
62010 PRINT"{HOME}{ 2 GIU'}"; 

62020 FOR T=1 TO 5 
62040 PRINT"{ 4 DES}"; 

62060 FOR C=1 TO 9 


62080 PRINT"{RVS}0[< 2 T>JP{ 4 SIN}{GIU'} 
n . 

62100 PRINT"{RVS}[<G>]{ 2 SPAZI}[<M>] 

{ 4 SIN}{GIU'}"; 

62120 PRINT"{RVS}[<G>]{ 2 SPAZI}(<M>) 

{ 4 SIN}{giu;}"; 

62140 PRINT"{RVS}L[< 2 @>]@{ 3 SU}"; 

62160 NEXT 

62180 PRINT"{ 3 GIU'}"; 

62200 NEXT 
62220 RETURN 

63000 REM PRESENTAZIONE INIZIALE 

63060 QQ=0 

63080 FOR C=1 TO 10 

63100 RW =INT(RND(1)* 14)+ 4 

63200 CL=INT(RND(1)*30)+6 

63300 FOR Z = 1 TO RP:PRINT"{GIU'}";:NEXT 

63350 FOR Z=1 TO CP:PRINT"{DES}NEXT 

63400 IF QQ=1 THEN PRINTBN$ 

63480 PRINT"{HOME}"; 

63500 FOR Z=1 TO RW:PRINT"{GIU’}";:NEXT 
63600 FOR Z=1 TO CL:PRINT"{DES}";:NEXT 
63700 PRINTX$; 

63720 RP=RW 
63740 CP=CL 
63750 QQ=1 

63770 PRINT"{HOME}"; 

63800 NEXT 
63850 RETURN 

63900 REM RICONOSCIMENTO 4032/C-64 
63910 IF PEEK(40961)=160 THEN RB=32768 
63920 IF PEEK(40961)=227 THEN RB=1024:POK 
E 53280,6:POKE 53281,6 
63930 IF RB=0 THEN STOP 
63940 RETURN 


to evento” e quindi si passa alle op¬ 
zioni finali (vedi 60000). 

55040 - Si disegna la traccia corri¬ 
spondente nel caso in cui SC abbia 
un valore compreso tra 1 e 4. Il tipo 
di traccia è fissato, al solito, da DR 
(vedi 41000). 

55060-55080 - A seconda del valore 
di SS(CL,RW), si disegna una galle¬ 
ria a fondo roccioso o terroso. In 
entrambi i casi la variabile T2 va, o 
resta, a 0. La differenza fra TI e T2 è 
la seguente: T2 precisa se l’utente è 
sulle tracce di Gollum mossa per 
mossa; TI è anch’essa booleana, ma 
non va a 0 non appena il giocatore 
perde le tracce, ma dopo 5 mosse, se 
nel frattempo, ovviamente, non le 
ritrova. Infatti, per un certo numero 
di mosse, anche se ha smarrito le 
tracce, il giocatore è ancora in grado 
di intuire gli spostamenti di Gollum 
e quindi di essere pericoloso. 

55200 - Si arriva a questa istruzione 
quando le tracce sono state trovate. 


55300-55350 - Se il giocatore ha per¬ 
so le tracce di Gollum, parte il con¬ 
tatore FP, che giunto al 5 farà azze¬ 
rare, come si è già detto, anche il 
valore di Tl. 

56000-56100 - Se il giocatore era sul¬ 
le tracce prima di realizzare la mossa 
(VT = 1), e la mossa è doppia, allora 
viene incrementato il contatore Z2, 
altrimenti, se è singola, viene incre¬ 
mentato ZI (vedi 43000; vedi 
20000). Quindi il sottoprogramma 
termina. 

56500-56600 - Questo sottopro¬ 
gramma permette di modificare, du¬ 
rante l’esecuzione del riepilogo del 
percorso, il valore dei tempi di pausa 
e quindi di modificare il valore della 
variabile AR (vedi 40000) che li de¬ 
termina. Il procedimento è semplice: 
se viene battuto “ + ”, la variabile 
AR si decrementa (rallenta il tempo 
di pausa e quindi cresce la velocità); 
se viene battuto si incrementa. 
57000 - Questo sottoprogramma 


mostra l’apertura di una galleria. 
57260-58500 - Se la galleria è già 
aperta, il sottoprogramma termina. 
Altrimenti, dopo aver incrementato 
la variabile NA (che conta il numero 
totale delle gallerie aperte), viene 
fatto lampeggiare per 3 volte un ri¬ 
quadro a scacchiera che precede l’a¬ 
pertura, in modo da dare un po’ di 
“suspance”. 

60000 - Qui riprende il programma 
principale nella sua parte conclusi¬ 
va. 

60002 - Se Gollum non è stato trova¬ 
to (EX = 1 ), si salta alla 60100. 
60005-60035 - Viene cancellato il 
bordo dello schermo. 

60100-61320 - Viene presentato il 
menu delle diverse possibilità che ha 
il giocatore al termine della partita. 
Se Gollum è stato trovato alla stessa 
scelta del punto di partenza (caso 
raro, ma non impossibile), non viene 
data la possibilità 1 di rivedere il 
percorso (MS = 0). Se il giocatore 















Gollum 

per C 64_ 

vuole rivedere il percorso (in tutti gli 
altri casi), viene chiamato il sotto¬ 
programma 15000 e quindi si torna 
alla istruzione 60100. Se vuole gio¬ 
care ancora, si pone a 1 la variabile 
booleana PP, che evita la presenta¬ 
zione iniziale. Se non vuole più gio¬ 
care, il programma termina. 
62000-62220 - Questo sottopro¬ 
gramma completa le gallerie nel di¬ 
segno random iniziale delle stesse. 
Questo viene fatto per non allungare 
troppo i tempi della preparazione 
dello schermo per il gioco. Vengono 
stampate tutte le gallerie, che vanno 
così a riempire i “buchi” eventual¬ 
mente lasciati dalla preparazione ca¬ 
suale (vedi istruzioni 1100-1250). 
63000 - Questo sottoprogramma 
viene impiegato nella presentazione, 
dopo il titolo e prima del disegno 
delle gallerie. Esso fa semplicemente 
disegnare per 10 volte il volto di 
Gollum (X$), che appare e scompa¬ 
re in diversi punti dello schermo. 
63080-63850 - Essendo la variabile 
X$, che rappresenta il volto di Gol¬ 
lum, leggermente più larga dei ri¬ 
quadri per motivi puramente esteti¬ 
ci, in questo sottoprogramma non è 
stato possibile impiegare il sottopro¬ 
gramma 51000 di posizionamento 
del cursore, ed è stato realizzato un 
apposito ciclo interno ad uso locale. 
Viene disegnata la X$, poco dopo 
cancellata dalla BN$, quindi ancora 
la X$ in un’altra posizione e cosi via. 
63900 - Questo sottoprogramma de¬ 
termina il registro base dello scher¬ 
mo per tutte quelle istruzioni che 
usano la Poke grafica, che, come si 
sa, varia dal Commodore al C 64. Il 
procedimento è assai semplice: ven¬ 
gono lette due locazioni note della 
ROM e in base a queste si determina 
RB. Per il C 64 vengono fissati anche 
il colore blu per il bordo e lo sfondo 
che rende chiaro lo svolgimento del 
gioco. Il programma, nato e svilup¬ 
pato su Commodore, è purtroppo 
monocromatico, ma gli utenti del C 
64 crediamo non avranno grosse dif¬ 
ficoltà a dargli un po’ di colore. 



••• e con questi siamo a 80 
ecco chi si è abbonato, 
ha risparmiato e ha vinto 
un Commodore 64 

Pubblichiamo l’elenco di altri 20 fortunati vincitori 
del concorso abbonamenti Jackson 1985. A. loro 
vanno le nostre più vive felicitazioni e agli altri 
nostri abbonati l’augurio di essere fra i 20 restanti 
fortunati. 

Il prossimo mese pubblicheremo l'elenco degli ultimi 
20 fortunati vincitori. 



1) LUNGHI Giuseppe 

Via Gramsci, 5 
26013 Cremo (CR) 

2) I.P.S.I.A. Giorgi" 

Via Tenagllo, 53 
31100 Treviso (TV) 

3) UGNOCCHI Roberto 

Via B. Bonini, 1 1 
25127 Brescia (BS) 

4) BRIZZI Andrea 

V.le Europa, 18 
39100 Bolzano (BZ) 

5) MICRO CONTROL snc 

Vio Claudia, 4557 

41056 Savignono Sul Panaro (MO) 

6) SPARACO Lucio 
Via Aldo Moro, 169 

81055 Santa Maria Capua Vetere (CE) 

7) OBERTINO Silvio 
Via Valle Soana, 59 

10085 Pont Canavese (TO) 

8) CHIAVIERI Renato 

P.zza Mazzini, 20 
44030 Serravalle (FE) 

9) ALESSANDRELLI Fabio 

Via Fano, 35 
601 28 Ancona (AN) 

10) CASSAI Fulvio 

Via Papa Giovanni XXIII, 36 
20097 Melegnano (MI) 


11) BIANCHERI Giovanni 

Via S. Rufino, 16 
1 6040 Lelvi (GE) 

12) MANGIARACINA Antonio 

Via Vili. Messina, 5 

92018 S. Margherita di Bellce (AG) 

13) SCOTTA Eligio 
Via Castello, 65 

1 2039 Verzuolo (CN) 

14) CACUDI Alessandro 

Via Benanduci, 6 

72021 Francavllla Fontana (BR) 

15) BURZAGLI Laura 

Via Traversi, 7 
501 27 Firenze (FI) 

16) DI STEFANO Gaetano 

Via Scarcella, 67 
95030 Trappeto (CT) 

17) PIZZIRANI Luigi 
Via Pessina, 34 
70125 Bori (BA) 

18) PIANA Guido 

Via Petrarca, 39 
07021 Arzachena (SS) 

19) OLIVARI Claudio 

Via Piove, 6 

46034 Governolo (MN) 

20) SCHIESARO Roberto 

Via Porta PO, 47 
45100 Rovigo (RO) 












□ L. IO. IMM) 

□ L. 100.000 


Dietro un bambino 
maltrattato 
c’è sempre 
una famiglia in crisi. 

È impossibile 
stabilire con 
esattezza quanti 
bambini in Italia 
subiscono violenze. 

Tanti, purtroppo. 

Ma una cosa è certa: 
la violenza che oggi 
un bambino subisce 
e impara, da grande 
la ritorcerà contro la società. 

Bisogna intervenire, e subito: agendo sulle cause 
Intervenendo sulla crisi familiare che è 
sempre alla base dei maltrattamenti 
a un bambino. 


“Vorrei contribuire anch’io”. 
Per sostenere il C.A.F. vi invio 


□ L. 25.000 

□ L. 500.000 


□ L. 50.000 

□ L. 


□ Tramile assegno bancario intestalo C.A.F. 

Via V. E. Orlando 15, 20142 Milano, che vi invio, 
unito a questo tagliando. 

□ Tramite versamento sul C.C.P. n° 22349203 intestato C.A.F. 
Via V. E. Orlando 15, 20142 Milano. 

Nome e Cognome . 

Indirizzo . 

CAP. . Città . 

Provincia . 

Attendo: ricevuta e tesserino di "Sostenitore " del C. A Jr. 


\ 


UN BAMBINO 
MALTRATTATO OGGI 
[ SARÀ UN UÒMÒ 
VIOLENTO DOMANI. 

FACCIAMO QUALCOSA 
PRIMA. 


Segnaliamo 
ai Servizi Sociali 
del Territorio i casi 
di maltrattamento. 

La prima cosa da 
fare: segnalare ogni 
caso di maltratta¬ 
mento di cui siamo a 
conoscenza o di cui 
abbiamo il fondato 
sospetto. 

Telefonate ai Servizi 
Sociali del Territorio 
dal lunedi al venerdì, 
dalle ore 9 alle ore 12 (troverete i numeri di 
telefono su Tuttocittà), oppure al Tribunale per i 
Minorenni (chiedendo del giudice di turno) dal 
lunedi al sabato dalle ore 9 alle ore 13, telefono 
4988001/2/3: oppure al C.A.F., a questi numeri di 
telefono 02/8265051/2, che rispondono 24 ore 
su 24, 7 giorni su 7. 

Sosteniamo il C.A.F. 

Il C.A.F. è il primo Centro di Aiuto al Bambino 
Maltrattato e alla Famiglia in Crisi, sorto in 
Italia con lo scopo di intervenire nei casi di 
maltrattamento. 

Oggi, nella sua nuova sede più grande e attrez¬ 
zata, accoglieprovvisoriamente i bambini mal¬ 
trattati, contemporaneamente svolge un’azione 
terapeutica sulla famiglia per ripristinare l’equili¬ 
brio e reintegrare il bambino nel suo ambiente. 

Il C.A.F. è un’istituzione privata che opera in 
collaborazione con i Servizi Sociali, con i 
supporti messi gratuitamente a disposizione 
dal Comune di Milano, e con i contributi 
finanziari volontari dei cittadini. 
Contribuisci anche tu, utilizzando il 
tagliando. È un gesto necessario, per 
i bambini maltrattati, per te che 
vuoi fare qualcosa di concreto 
contro la violenza. 


C.A.F. 


CENTRO DI AIUTO 
AL BAMBINO MALTRATTATO 
E ALLA FAMIGLIA IN CRISI 






Spazio gratuito offerto dal GRUPPO EDITORIALE JACKSON 









Skywalker 
_per C 64_ 


Un gioco che sicuramente 
vi appassionerà 

di Luca Marras 

S iamo nel Medioevo. Una 
strega malvagia ha fatto un 
incantesimo: presto una mi¬ 
nacciosa nube nera coprirà la Luna 
simbolo del Bene. Ma come ogni 
sortilegio che si rispetti, anche que¬ 
sto può essere sciolto da un uomo 
coraggioso. E questa volta l’ingrato 
compito tocca proprio a voi. L’oscu¬ 
ramento della luna sarà preceduto 


da una pioggia di stelle. Voi, sul vo¬ 
stro cavallo volante, dovrete ac¬ 
chiapparle tutte. Non lasciatevene 
sfuggire neppure una! Infatti ogni 
volta che una stella cadrà a terra, la 
nube si avvicinerà sempre più al di¬ 
sco lunare.... 

II vostro viaggio è tutt’altro che faci¬ 
le: infatti vi vengono incontro dei 
coloratissimi uccelli inviati dalla fat¬ 
tucchiera, che vi uccideranno al solo 
contatto (per fortuna avete ben tre 
vite a disposizione!). Inoltre dovrete 
stare molto attenti a non toccare il 
suolo, e soprattutto state il più pos¬ 
sibile lontani dalla freccia che la 
strega vi scaglia contro dal profondo 


della terra. 

Nel cielo si trova anche un miste¬ 
rioso scrigno che vi regalerà un muc¬ 
chio di punti. Dalla vostra avrete 
anche un contro-incantesimo, che vi 
renderà invulnerabili ai rapaci. Per 
azionarlo, basta premere “Fire” sul 
joystick. Questo incantesimo non è 
però di durata illimitata: esso è di¬ 
sponibile finché gli angoli superiori 
dello schermo sono verdi. Se diven¬ 
tano gialli, l’incantesimo sta per fini¬ 
re. Se sono rossi esso è già scaduto. 
Alla fine di ogni livello dispari si ha 
un bonus variabile e una vita in rega¬ 
lo (ma la dotazione non potrà mai 
essere superiore alle tre vite). 


Listato 1. // programma Skywalker. 


1 REM "SKYWALKER" BY LUCA MARRAS 

9 POKE808,225 

10 POKE53280,0 :POKE53281 ,0:DIMN,HO,WA$(10 
,2),SC$ (24) :V=53248:POKEV+21,0 

15 PRINTCHR?(8)CHR$(1 42) 

20 SI = 54272:VL=SI+24:POKEVL,0:FORP=lT03:U 
=SI+7*(P-l)SPRINT"{CLR}" 

30 FL(P)=U:FH(P)=U+1:TL(P)=U+2:TH(P)=U+3: 

W(P)=U+4:AD(P)=U+5:SR(P)=U+6:NEXT 
40 FORP=lT03:POKEW(P),0:NEXT:POKEVL,15 
50 POREAD(1),4*16+8:POKESR(1),16+10:HI$=" 
L.M.S." 

60 POKEAD (2),6*16 :POKESR(2),10*16 + 10 :POKE 
TL(2) ,200 :POKETH(2) ,4:CO$ = "{ 2 YEL) 
{RED}" 

70 POKEAD(3),10*16+10:POKESR(3),0:LI$(0)= 
"{ 2 SPAZI}":LI$(1)="{PUR}- ":LI$(2)=" 
{PUR}-{RED}-" 

100 GOSUBl000:HI=1985 

110 FORP=2TOl0 :WA$(P,1)=" ":WA$(P,2)=" »: 

NEXT:WA$(1,1)="<":WA$(1,2)=">" 

200 POKE53270,PEEK(53270)AND239:POKE53272 
,21 :POKEl98,0 

210 PRINT" {CLR} { 4 GIU'HGRN} U{ 2 C} - 
^ ^ ^ - { 3 SPAZI}- UCI -{ 3 SPAZI}- 
- U{ 2C} [<A>]CI_" 

220 PRINT" -{ 3 SPAZI}-_ - - - - 
, { 3 SPAZI}- - - - { 3 SPAZlT- - - 

{ 3 SPAZI}-- -" 

230 PRINT" JCI (<Q>]CK J[<R>]K _- - - 

[<Q>]C [<W>] -_{ 3 SPAZI} [<Q>]CK (<Q> ] 
C{ 2 SPAZI}[<Q>]CK" 

240 PRINT" { 3 SPAZI}- -_ B{ 2 SPAZI}B 

{ 2 SPAZI}B B B B B B{ 3 SPAZl}B B B 
( 3 SPAZI}B B" 


250 PRINT" { 2 CTK -{SPAZIJ-J 2 SPAZI }-_ 

{ 2 SPAZI}JC(<E>]CK - - J{ 2 C} - - 
J{ 2 C} - -" 

260 PRINTSPC(10)"{ 4 GIU'}{RED}WRITTEN BY 
L. MARRAS" 

265 PRINTSPC(11)"{PUR}{GIU 1 * * 4 * * * * * * Il }JOYSTICK IN P 
ORT 2" 

270 PRINTSPC(10)"{GIU'}{WHT}F1{BLU} OR 
{WHT}FIRE{BLU}{ 2 SPAZIATO START" 

275 PRINT"{HOME}{<6>)"TAB(5)HI$;TAB(29)HI 

280 GETA$:SYS828:IFPEEK(815)<>0ANDA$<>" 

{Fi}"THEN280 
290 PRINT"{CLR}" 

300 SG=1:Q=0: 1=2:HO=201 

390 POKE53272,(PEEK(53272)AND240)+1 4 :POKE 
53270,PEEK(53270)OR16 
400 POKEV,32 :POKEV+1,162:GOSUB2000:POKEV+ 
4,32:POKEV+5,254 :POKEV+1 0,240 
410 POKEV+11,60 :POKEV+8,30 :POKEV+9,60 :POK 
EV+21,127:CO=0:MT=0 

450 PRINT"{CLR}":F0RP=lT024:PRINTSC$(P); : 

IFP=20THENPRINTMID$(CO$,SGAND3,1); 

4 55 NEXT:P0KE56295,7 :POKE49799,0 :IF(SGAND 
3)=3THENPOKE56295,2 

460 PRINT"{HOME}{DES}{GRN}SCORE"Q;TAB(14) 

LI$(I)TAB(30)"{CYN}ROUND"SG 

470 PRINT"{HOME}{GRN}-"TAB(39) 

475 IFCO>89THENPRINT"{HOME}{YEL}-"TAB(39) 

Il «.Il 

480 IFCO>99THENPRINT"{HOME}{RED}-"TAB(39) 

Il ». Il 

490 PK=PEEK(V+30):PK=PEEK(V+31) 

500 FORN=lT02:SYS49700:SYS49152:SYS828:SY 
S900:SYS950:SYS950:SYS975 
505 HO=401-HO:POKE2040,HO:IFSG>2THENSYS95 
0:SYS975 

520 IFPEEK(V+3)=>240THEN7000 
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Skywalker 
_ per C 64 


Seguilo listato Skywalker. 


530 PK=PEEK(V+30):IF(PRANDI)= 1THEN6000 
680 IFCO<101ANDPEEK(815)=0THENGOSUB2050:N 
= 1 :NEXT 

690 IF(PEEK(V+31 )ANDl )=1THEN8000 
700 N = 1:NEXT 

1000 DATAI 69,0,1 41 ,2,220,1 73,0,220 
1020 DATAMI ,46,3,41 ,16,1 41 ,47,3,1 73,46,3 
,41,15,141,46,3,169,15,237,46,3 
1025 DATAMI ,46,3,169,255,1 41 ,2,220,96 
1030 A=828 

1040 READB:POKEA,B:IFB=96THEN1060 
1050 A=A+1: GOTO!040 
1060 A=49152 

I 070 READB:POKEA,B:IFB=96THENl120 
1080 A=A+1rGOTOl070 

1090 DATAI 62,2,1 89,1 48,1 92,133,251,1 89,1 4 
9,192,133,252,134,253,162,0,161,251 
1100 DATAMI ,255,3,1 66,253,160,1 ,1 77,251 , 
136,145,251,200,200,192,40,240,3,76, 
25 

1110 DATAI 92,160,39,1 73,255,3,1 45,251 ,232 
,232,224,50,240,3,76,2,192,96 
1120 A=49300 :FORP=1024TO1984STEP40:HI = INT 
(P/256):LO«P-HI*256 

II 30 POKEA,LO:POKEA+l,HI:A=A+2:NEXT 
1140 A=950 

1150 READB:POKEA,B: IFB=96THENl185 
1160 A=A+1:GOTOl150 

1170 DATAI 74,2,208,224,254,240,1,232,1 42, 
2,208,174,3,208,232,142,3,208 
1180 DATAI 42,40,208,96 

1185 A=975 

1186 READB:POKEA,B:IFB=96THENl190 
1 187 A=A+1:GOTO1186 


1188 DATAI 74,5,208,202,202,202,202,224,10 
,208,8,174,0,208,142,4,208,162,254 

1189 DATA142,5,208,96 

1190 A=49700 

1191 READB:POKEA, B:IFB=96THENl200 

1192 A=A+1:GOTOl191 

1193 DATAI 69,0,141 ,4,212,1 72,135,194,185, 
136,194,141,0,212,200,185,136,194 

1 1 94 DATAMI ,1 ,212,200,1 92,32,208,2,160,0 
,140,135,194,169,17,141,4,212,96 
1200 A=900 

1210 READB:POKEA,B:IFB=96THENl 250 
1220 A=A+1:GOTOl210 

1 230 DATAI 73,46,3,41 ,1 ,201 ,1 ,208,3,32,92, 
193,173,46,3,41,2,201,2,208,3 

1231 DATA32,142,193,173,46,3,41,4,201,4,2 
08,3,32,192,193,173,46,3,41,8,201,8 

1232 DATA208,3,32,242,193,96 
1250 A-49500 

1260 READB: POKEA, B:IFB=96THEN1290 
1270 A=A+1:GOTOl260 

1 280 DATAI 73,1 ,208,233,8,201 ,58,1 76,2,1 69 
,58,141,1,208,96 
1290 A=49550 

1300 READB:POKEA,B:IFB=96THENl330 
1310 A=A+1: GOTO1300 

1 320 DATAI 73,1 ,208,105,8,201,226,1 44,2,1 6 
9,226,141,1,208,96 
1330 A=49600 

1340 READB:POKEA,B:IFB=96THENl370 
1350 A=A+1:GOT01340 

1 360 DATAI 73,0,208,233,8,201,24,1 76,2,1 69 
,24,141,0,208,96 
1370 A=49650 

1380 READB:POKEA,B:IFB=96THEN1405 
1390 A=A+1 :GOTOl 380 

1400 DATAI 73,0,208,105,8,201 ,240,144,2,16 
9,240,141,0,208,96 

1405 FORA=l000TO1019:READB:POKEA,B:NEXT 
1 407 DATAI 74,5,208,224,254,208,1 ,96,202,2 
02 , 202 , 202 , 202 , 202 , 202,202 
1 408 DATAI 42,5,208,96 

1410 POKE56334,PEEK(56334)AND254:POKEl,PE 
EK(1)AND251 

1 420 FORP=0TO63:FORU = 0TO7:POKEl4336+P*8+U 
,PEEK(53248+P*8+U):NEXTU,P 


Nel secondo livello, lo scenario cam¬ 
bia. Vi trovate, con il vostro cavallo, 
sulla superficie azzurra del mare. 
Dovrete evitare, saltando ( azionan¬ 
do il joystick verso l’alto), delle pun¬ 
te velenose che affiorano dall'acqua. 
Inoltre dovrete anche cercare di col¬ 
pire con una freccia un uccelletto 
verde che vi regalerà preziosi punti. 
Premendo il tasto “Fire” sul joystick 
si carica la freccia: rilasciandolo la si 
lancia (in questo caso, dunque, l’au- 
to-fire di cui sono dotati alcuni joy¬ 
stick è del tutto inutile). 

Ogni volta che verrete colpiti da 
una punta avvelenata perderete una 
vita. Al termine di questo livello vi 
sarà regalata una vita extra (ma 
niente bonus!). 

Il terzo round è simile al primo. La 
freccia però è molto più veloce, e 
anche la stella cade più velocemente. 


Da qui in poi la difficoltà si stabiliz¬ 
za. 

Il movimento del cavaliere, ottenuto 
con il joystick in porta 2, è verticale, 
orizzontale e diagonale nel primo li¬ 
vello, e solo verticale (salto) nel se¬ 
condo. Non è possibile utilizzare la 
tastiera per giocare. 

II listato 

9 - Disinserisce il tasto Run Stop. 
Per reinserirlo sarà sufficiente can¬ 
cellare questa linea. 

10-70 - Inizializzano le variabili e lo 
schermo, preparano il circuito sono¬ 
ro. 

100 - Questa linea chiama le subrou¬ 
tine che inizializzano la grafica e ca¬ 
ricano il linguaggio macchina. 

110 - Prepara alcune variabili usate 
per la grafica. 


200-390 - Vengono eseguite all’ini¬ 
zio di ogni partita. Visualizzano lo 
schermo di presentazione. Inizializ¬ 
zano alcune variabili che controlla¬ 
no il flusso del gioco. Predispongo¬ 
no la grafica in Multicolor. 

400-490 - Vengono eseguite all’ini¬ 
zio di ogni livello dispari e visualiz¬ 
zano il campo di gioco. 

500-700 - Sono il “cuore” dei livelli 
dispari. Il loro compito principale è 
chiamare le routine in linguaggio 
macchina e controllare se si verifica¬ 
no collisioni sprite-sprite o sprite- 
sfondo. 

1000-1408 - Caricano in memoria le 
routine in linguaggio macchina. 
1410-1499 - Creano i caratteri spe¬ 
ciali in Multicolor. 

1500-1740 - Caricano in SC (x) (do¬ 
ve x è compreso fra 1 e 24) le 24 righe 
dello schermo di gioco. 
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Seguilo listato Skywalker. 

1430 POKEl,PEEK(1)OR4:POKE56334,PEEK(5633 
4 JORI 

1440 POKE53272,(PEEK(53272)AND240)+1 4 : POR 
E53270,PEEK(53270)ORI 6 
1450 POKE53282,7:POKE5328 3,2 : READA:IFA=-1 
THENl500 

1460 FORP=0TO7:READB:POKEl4336+A*8+P,B:NE 
XTsGOTOl450 

1470 DATA0,0,0,0,0,0,0,15,31,42,1,5,6,22, 
26,26,42,255 

1471 DATA30,160,160,128,128,0,0,0,0,58,0, 
0,0,0,0,0,0,0 

1472 DATA59,255,63,15,2,2,0,0,0,61,252,25 
2,240,64,64,0,0,0 

1473 DATA31,255,255,255,255,255,255,255,2 
55,37,0,0,0,0,3,7,15,63 

1474 DATA38,3,31,63,239,223,191,127,127,3 
9,0,0,3,7,13,27,127,255 

1475 DATA33,96,184,204,247,249,159,247,25 
5,35,0,0,0,0,192,224,112,44 

1476 DATA36,0,192,224,176,200,230,249,255 
,40,255,255,239,223,255,255,255,255 

1477 DATA60,2,2,42,2,2,14,59,254,62,128,1 
28,168,128,128,224,184,238 

1499 DATA-1 

1500 DATA"l<7>]{ 3 SPAZl}@*t{ 28 SPAZI}®* 
t{ 3 SPAZI}" 

1510 DATA"{ 3 SPAZI}: ; = { 6 SPAZl}@*t 
{ 19 SPAZI}:;={ 3 SPAZI}" 

1520 DATA"{ 12 SPAZI}:;={ 25 SPAZI}" 

1530 DATA"{ 37 SPAZI}@*t" 

1540 DATA"( 22 SPAZI}@*t{ 12 SPAZI}:;»" 
1550 DATA"( 22 SPAZI}:;={ 15 SPAZI}" 

1560 DATA"[<6>){ 40 SPAZI}" 

1570 DATA"{ 40 SPAZI}" 

1 580 DATA"{ 7 SPAZI}@* t { 30 SPAZI}" 

1590 DATA"{ 7 SPAZI}:,•={ 18 SPAZl}@*t 
{ 9 SPAZI}" 

1600 DATA"{ 28 SPAZI}:;={ 9 SPAZI}" 

1610 DATA"[<5>]{ 40 SPAZI}" 

1620 DATA"{ 40 SPAZI}" 

1630 DATA"{ 40 SPAZI}" 

1640 DATA"{ 13 SPAZI}@*t{ 24 SPAZI}" 

1650 DATA"{ 13 SPAZI}: ;={ 24 SPAZI}" 

1660 DATA"(<4>)( 2 SPAZl}@*t{ 23 SPAZI}®* 
t{ 9 SPAZI}" 

1670 DATA"{ 2 SPAZI}:;={ 23 SPAZI}:;» 

{ 9 SPAZI}" 

1680 DATA"{ 40 SPAZI}" 

1690 DATA"{ 40 SPAZI}" 

1700 DATA"{ 8 SPAZI}%&!#{ 6 SPAZI}%&!# 

{ 4 SPAZI}%&!*{ 10 SPAZI}" 

1710 DATA" { 7 SPAZI} '4 SPAZI}' 

${ 2 SPAZI}'-►-•■${ 9 SPAZI}" 

1 720 DATA" { 2 SPAZI }%& 

----«------(♦.-I# { 2 SPAZI}" 

1 730 DATA" 

«-«- 4 - ( 

1740 FORP=lT024:READSC$(P): NEXT 
1 750 DATA0,40,0,0,36,0,0,36,0,0,8,0,0,60, 
0,0,52,32,0,52,168,0,52,170,0,61,168 
1 760 DATAI 30,1 90,1 28,34,1 75,1 28,10,1 71 , 16 
0,2,169,96,10,0,40,40,0,8,160,0,10 
1 770 DATAI 28,0,2,1 28,0,2,0,0,2,0,0,0,0,0, 
0 


1780 FORP=0TO62:READB:POKE64*200+P,B:NEXT 
:POKE2040,200:POKEV+28,79 
1 790 POKEV+39,15 :POKEV+37,4 :POKEV+38,9 : PO 
KEV+29,16 

1800 DATA0,40,0,0,36,0,0,36,0,0,8,0,0,60, 
0,0,52,32,0,52,168,0,52,170,0,61,168 

1810 DATAI 30,190,128,34,175,128,10,171,16 
0,2,169,96,10,0,40,2,0,32,2,0,32 
1820 DATA2,128,160,0,128,128,0,128,128,0, 
34,0,0,34,0 

1830 FORP=0TO62:READB:POKE64*201+P,B:NEXT 
:POKEV+40,1:POKE2041,202 
1840 DATA0,0,0,0,0,0,0,0,0,160,0,0,40,0,0 
,42,136,0,42,169,0,10,169,96,10,149, 
96 

1850 DATA2,90,144,0,155,152,0,27,144,0,42 
,144,0,42,80,0,5,80,0,0,0,0,0,0,0,0, 
0 

1860 DATA0,0,0,0,0,0,0,0,0 
1870 FORP=0TO62:READB:POKE64*202+P,B:NEXT 
:POKEV+27,114:POKEV+41,8 :POKE2042,20 
3 

1880 DATAO,32,0,0,32,0,0,168,0,0,168,0,2, 
94,0,2,94,0,-10,237,128,10,237,1 28 
1890 DATAO,32,0,0,32,0,0,32,0,0,32,0,0,32 
,0,0,32,0,0,32,0,0,32,0,0,32,0,0,32, 
0 

1900 DATAO,32,0,0,32,0,0,32,0 
1910 FORP=0TO62:READB:POKE64*203+P,B:NEXT 
:POKE2043,200 :POKEV+42,7 

1920 DATAO,127,0,1,223,192,3,239,224,7,24 
7,240,15,255,120,31,126,124,28,60,60 

1921 DATA62,24,158,63,62,254,51,159,246,5 
5,255,254,63,255,254,31,254,124 

1922 DATA27,228,60,15,240,120,15,249,248, 
7,191,240,3,255,224,1,249,192 

1923 DATAO,126,0,0,0,0 

1924 FORP=0TO62:READB:POKE64*204+P,B:NEXT 
:POKE2045,204 :POKEV+44,7 

1930 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,56,0,0 
,253,128,99,251,240,247,247,236 

1931 DATAI 27,199,222,63,191 ,223,1 27,1 27,6 
3,62,254,254,30,255,126,0,199,124 

1932 DATA29,48,120,127,224,160,255,192,0, 
59,128,0,0,0,0,0,0,0,0,0,0 

1 933 FORP=0TO62:READB:POKE64* 205+P,B:NEXT 
:POKE2044,205 :POKEV+43,11 
1 940 DATA6430,81 01 ,9634,1 2860,1 1457,1 081 4 
,9634,8583 

1941 DATA7217,8583,10814,12860,5728,7217, 
8583,11457 

1942 FORP = OTOl5:READB:HI = 1NT(B/256):LO=B- 
HI* 256 

1943 POKE49800+P*2,LO:POKE49801+P*2,HI:NE 
XT 

1 950 DATAO,0,0,0,0,0,0,40,0,0,255,0,2,255 
,128,15,255,240,63,255,252,247,119,1 
1 9 

1951 DATA255,255,255,255,255,255,170,170, 
170,255,255,255,255,255,^55 

1952 DATA247,119,119,63,255,252,15,255,24 
0,2,255,128,0,255,0,0,40,0,0,0,0,0,0 
,0 

1 953 FORP=0TO62:READB:POKE64 * 206+P,B:NEXT 
:POKE2046,206:POKEV+45,10 : RETURN 
2000 POKEV+3,15:POKEV+2,INT(RND( 1 ) *256) 
2010 POKEV+12,INT(RND(1 )*231 )+24:POKEV+l 3 
,INT(RND(1)*188)+52:RETURN 
2050 POKEV+39,2:CO=CO+l:IFCO>89THENPRINT" 
{HOME} {VEL} *-"TAB ( 39) 

2060 IFCO>99THENPRINT"{HOME}{RED}-"TAB(39 

j II ^ Il 

2070 POKEV+39,1 :PK=PEEK(V+31) : RETURN 
3000 POKEV+21,0 :PRINT"{CLR}{DES}{GRN}SCOR 
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Seguito listato Skywalker. 

E" Q ;TAB(14)LI$(I)TAB(30)"{CYN}ROUND” 
SG:POKE49799,0 

3010 PRINT"{ 16 GIU'}{BLU}";:F0RP=lT06 
3020 PRINT" +-*-*-*-*-*-*-*-* m *'+‘*'*‘* m + m *‘*~*~*~*'*‘* m *‘*~*~*‘*"*'*'*~ 
- ; :NEXT:POKEV+l 0,240 

3030 POKEV+11,60 :POKEV,80 :POKEV+1,164:MT= 
0 

3040 PRINT"{HOME}{ 16 GIU'}[<7>] 

{ 40 SPAZI}"; 

3050 PRINT"{HOME}{ 5 GIU'}[<6>] 

{ 17 SPAZI}@*t{ 20 SPAZI}"; 

3060 PRINT"{ 17 SPAZI}:;={ 20 SPAZI}" 

3070 POKEV+4,80 :POKEV+5,254 :POKEV+21 ,37 
3090 PK=PEEK(V+30):PK=PEEK(V+31):CO=7:R=2 

3100 FORN = lT02:FORWA=lT02:SYS49700:SYS491 
52 :SYS828:IFPEEK(814)=1ANDCO>6THENCO 
= 0 

3105 SYS1000 

3110 HO = 401-HO :POKE2040,HO:CO=CO+l:IFCO<7 
THENPOKEV+1,154:IFCO = 6THENPOKEV+l , 1 6 
4 

3120 MT=MT+1:IFMT=200THENl 1 500 
3130 IFPEEK(815)=0THENPÓKEV+5,1 58 
3140 PRINT"{HOME}{ 16 GIU’}{BLU}"SPC(39)W 
A$(R,WA )} 

3150 PK=PEEK(V+31):IF(PKANDl)=1THEN8500 

3160 IF(PKAND4)=4THENGOSUB6500 

3200 NEXT:R=INT(RND(1)*10)+1:N=1:NEXT 

6000 IF(PKAND2)=2THEN6050 

6010 IF(PKAND64)=64THEN61 50 

6020 IF(PKAND4)=4THEN61 00 

6030 GOTO680 

6050 Q=Q+150 :PRINT"{HOME}{DES}{BLU}SCORE" 
Q:POKEW(2),0 :POKEW(2) ,65 
6055 FORP=50TO250:POKEFH(2),P:NEXT:POKEW( 
2) ,0 

6060 GOSUB2000:PK=PEEK(V+30):MT=MT+1:IFMT 
=10THEN11000 
6070 GOTO680 

6100 IF(PRANDI 6)=16THEN680 
6105 FORP=lTOl0:POKEV+41,P:POKEW(l),0:POK 
EFH(l),150:POKEW(1),129 
6110 FORU=lTO20:NEXTU,P:POKEW(1),0:POKEV+ 
41,8:GOTO8000 

6150 Q=Q+200:PRINT"{HOME}{DES}{BLU}SCORE" 
Q:POKEV+45,1 :FORP=lTOl0 :POKEW( 1 ),0:P 
OKEFH(1),20 

6160 POKEW(1) ,33:FORO = 1TO 2 0 :NEXTU,P:POKEW 
(1),0 :GOSUB2010 :POKEV+45,10 


6170 PK=PEEK(V+30):GOTO680 
6500 IFPEEK(V+5)<63THENRETURN 
6510 POKEW(3),0:POKEFH(3),50:POKEW(3),17: 
Q=Q+100:PRINT"{HOME}{GRN}"TAB(6)Q:PO 
KEV+5,254 

6520 PK=PEEK(V+31):RETURN 

7000 POKEW(3),0:POKEFH(3),10:POKEW(3),129 
:FORP=PEEK(V+8)TOPEEK(V+8)+50STEP.5 
7005 POKEV+8,P:NEXT 
7010 IFPEEK(V+8)=230THENl 0000 
7020 PK=PEEK(V+31):GOSUB2000:GOTO530 
8000 N=2:POKEW(1) ,0:POKEFH(1 ),5:POKEW(1) , 
129:POKEW(1) ,128 :POKEW(2) ,0:POKEW(2) 
,17 

8010 FORP=PEEK(V+l)TO250:POKEV+1,P:PK=PEE 
K(V):IFPK<255THENPK=PK+1 
8020 POKEV,PK:POKEFH(2),255-P:FORU=lT05:N 
EXTU,P:POKEW(2),0 
8030 1 = 1-1 :IFI = -1THEN1 0000 

8040 GOSUB2000:POKEV,32:POKEV+1,162:POKEV 
+ 4,32:POKEV+5,254:POKEV+39,15 : GOTO4 5 
0 

8500 1 = 1-1 :POKEW(2),0:POKEFH(2) ,10:POKEW( 
2),129 

8510 FORP=lTOl000:NEXT:POKEW(2),0:IFI=-1T 
HENl0000 

8520 PRINT"{HOME}{ 16 GIU'}(<7>] 

{ 40 SPAZI}"; 

8530 POKEV+5,254:POKEV+1,164 :POKE49799,0 : 

PRINT"{HOME}"TAB(14)LI$(I) 

8540 PK=PEEK(V+31):GOTO3100 
10000 PRINT"{HOME}{ 12 GIU'}"SPC(15)" 
{WHT}GAME OVER"; 

10010 FORP=lT03:POKEW(P),0:NEXT:POKEW(2), 
0:POKEW(2),33 

10020 FORP=255TO50STEP-1 :POKEFH(2) ,P:NEXT 
:POKEW(2),0 

10030 FORP=lTOl 000 :NEXT:POKEV+21,0:PRINT" 
{C LR}" 

1 0040 IFQ>HITHENHI=Q:GOSUBl 01 00 
10050 GOTO200 

10100 HI$="":PRINT"{CLR}{ 10 GIU'}{RED}YO 
UR NAME IS... "; 

10110 OPENl,0:INPUT#1,A$:CLOSEl 
10120 IFLEN(A$)>15THEN10100 
10130 FORP=lTOLEN(A$):B$=MID$(A$,P, 1 ) 
10140 IF(B$<"A"ORB$>"Z")ANDB$<>" "THENP=L 
EN(A$)+1:GOT010100 
10150 NEXT:HI$=A$:GOTO200 

11000 N=2:PK=PEEK(V+8):PK=230-PK:PK=PK/50 
:BO=SOO*PK:Q=Q+BO 

11010 PRINT"{HOME} {BLU}BONUS"BO"PTS. 
{RED}SCORE"Q 

1 1020 FORP=1TOl 000 :NEXT:FORP=lT03:POKEW(P 
) ,0 :NEXT:FORP = lTOl000 :NEXT 
11030 1=1+1:IFI>2THENI=2 
11040 SG=SG+1:POKEV+39,15:GOTO3000 
1 1 500 SG=SG+1: 1 = 1 + 1 :IFI>2THENI = 2 
11510 POKEW(2) ,0:POKEW(2),65:FORP=50TO250 
:POKEFH(2),P:NEXT:POKEW(2) ,0 
11520 POKEV+21,0:GOTO400 


1750-1953 - Definiscono gli sprite. 
Inoltre le linee 1940-1943 memoriz¬ 
zano da 49800 a 49831 le note della 
musichetta di sottofondo, nella for¬ 
ma Lo-Byte - Hi-Byte. 

2000-2010 - Posizionano a caso la 
stella cadente e lo scrigno. 
2050-2070 - Gestiscono la funzione 
del tasto “Fire” nei livelli dispari. 
3000-3200 - Linee principali che 
controllano lo svolgimento dei livelli 

90 


6000-6170 - Gestiscono le collisioni 
sprite-sprite nei livelli pari. In parti¬ 
colare 6050 - 6070 collisione cavalie¬ 
re - stella cadente; 6100-6110 colli¬ 
sione cavaliere - freccia; 6150-6170 
collisione cavaliere - scrigno. 
6500-6520 - Collisione freccia - uc¬ 
cello nei livelli pari. Aggiornamento 
del punteggio. 

7000-7020 - Movimento della nube 


verso la Luna. 

8000-8040 - Routine di perdita di 
una vita nei livelli dispari. Fine del 
gioco se la scorta è esaurita. 
8500-8540 - Come 8000 - 8040, nei 
livelli pari. 

10000-11050 - Routine di fine parti¬ 
ta. 

10100-10150 - Se il punteggio me¬ 
morizzato nella variabile Q è supe¬ 
riore al record registrato in HI, chie- 











Giulio Carducci 

LE APPLICAZIONI 
DEL COMPUTER 
NELL’UFFICIO 
MODERNO 

Questo libro vuole essere un'introdu¬ 
zione all’Informatica e, nel contem¬ 
po, una guida all'utilizzo consapevole 
dello strumento del giorno, il perso¬ 
nal computer, nell'ufficio moderno e 
nello studio professionale. E rivolto 
pertanto, ad un vasto pubblico: ad¬ 
detti ai vari settori dell’azienda, qua¬ 
dri, dirigenti, ingegneri, architetti, 
professionisti in genere. 

Cod. 407H Pag. 132 Lire 23.000 


Michael Browne 

UNITÀ A DISCHI PER 
MICROCOMPUTER 

Il libro, destinato a lettori con una 
buona conoscenza di base dell'uso di 
un calcolatore e del linguaggio BA¬ 
SIC, descrive il funzionamento dell'u¬ 
nità a dischi di un personal computer 
e il significato dei comandi relativi, 
con particolare attenzione per le di¬ 
verse tecniche di gestione dei file su 
disco. 

Il libro è arricchito di diversi pro¬ 
grammi esempio in BASIC Commo¬ 
dore 4.0, relativi alle diverse tecniche 
di organizzazione e gestione dei file. 

Cod. 300P Pag. 156 Lire 15.000 

Mauro Salvemini 

URBANISTICA 
E INFORMATICA 


Graziella Tongoni 

LA COMUNICAZIONE 
CAMBIATA 

Questo libro vuole offrire una occa¬ 
sione a tutti i suoi lettori per analizza¬ 
re, scoprire e potenziare le proprie 
capacità comunicative e divenire pro¬ 
tagonisti reali di una ampia trasfor¬ 
mazione in corso, di cui uno degli 
aspetti più evidenti è costituito dall'e- 
spandersi progressivo delle tecno¬ 
logie. 


VOGLIATE SPEOIRMI 


n copi® 


Prezzo unitario 


Prezzo totale 


Totale _ 

□ Pagherò contrassegno al postino il prezzo indicato più L 3.000 per contributo Ile so 
spese di spedizione. 


gruppo 

ZDITOeiAU 

JACKSON 


ritagliare (o fotocopiare) e spedire in busta chiusa a 
GRUPPO EDITORIALE JACKSON - Divisione libri • Via Rosellmi 12 • 20124 Milano 

CEDOLA DI COMMISSIONE LIBRARIA 


testo. 


Cod. 538P Pag. 112 Uro 10.500 


Arthur Naiman 

WORD STAR 

Perché un computer, anche di cate-' 
goria mlcro, sia, utile nell'attività di 
ufficio è essenziale che permetta 
anche di effettuare l'elaborazione dei 
testi, con tutte le funzioni che ciò 
comporta. I prodotti software a ciò 
destinati sono oggi moltissimi ma 
solo alcuni emergono per completez¬ 
za e flessibilità: fra questi Wordstar è 
sicuramente uno dei più riusciti. 

Cod. 525P Pag. 222 Uro 23.000 


Condizioni di pagamento con esenzione dal contributo apaaa di spedizione: 

□ Allego assegno della Banca □ Allego fotocopia del versamento 

su c/c n 11666203 a voi «mestato 

□ Allego fotocopia di versamento 

n* --su vaglia postale a voi intestato 

Nome 

Cognome 


Cap Città Prov. 

Data Firma 



Sempre più vaste sono le applicazio¬ 
ni dell'informatica in ogni settore del¬ 
la vita e del lavoro, e in particolare 
quelle della computer grafica. Nean¬ 
che mestieri e professioni con una 
origine antica come l'architetto o 
l'urbanistica si ‘salvano" dall'onda 
dell'informatica. 

Un entusiasta utilizzatore di quest'a¬ 
rea culturale racconta in questo libro 
per i colleghi e gli studenti di archi¬ 
tettura e di urbanistica tutti I vantaggi 
e gli avanzamenti possibili nella pro¬ 
gettazione e lo studio di nuovi edifici, 
complessi edilizi o urbani grazie alla 
computer grafica. 

Cod. 801P Pag. 224 Lire 30.000 






























Skywalker 
per C 64. 


dono il nome del giocatore (HI ) e 
aggiornano il record (HI = Q). 
11000-11520 - Fanno avanzare il 
gioco al livello successivo a quello 
appena giocato. 


La grafica 

Il gioco si avvale di una interes¬ 
sante grafica in Multicolor. Quasi 
tutte le figure presenti sullo scher¬ 
mo, infatti, sono realizzate con que¬ 
sto metodo. 

Nella grafica monocolore, ad ogni 
pixel corrisponde un bit: così un by¬ 
te può definire ben 8 pixel. Nella 
grafica Multicolor, ad ogni pixel 
corrispondono due bit. Le combina¬ 
zioni possibili ora non sono più due 
(Oe 1), ma ben 4:00,01, 10, 11. Se ad 
ognuna di queste combinazioni fac¬ 
ciamo corrispondere un colore, ve¬ 


dremo che i colori disponibili sono 
quattro. Poiché nel modo multico¬ 
lor i pixel sono di lunghezza doppia, 
ad un byte corrispondono quattro 
pixel raddoppiati. 


II suono 

La musichetta di sottofondo è 
realizzata tramite una routine in lin¬ 
guaggio macchina, che legge le note 
memorizzate da 49800 a 49831 e le 
riporta, una per volta, sui registri 
dell’oscillatore 1. Altri effetti sonori 
sono ottenuti facendo variare molto 
velocemente il contenuto dei registri 
sonori. La qualità del sintetizzatore 
di cui è dotato il C 64 permetterebbe 
effetti di gran lunga migliori di quelli 
presenti in “Skywalker”. Purtroppo 
la gestione del suono è molto com¬ 
plessa ed occupa molta memoria. 


Alcune raccomandazioni 

L’uso dei caratteri ridefinibili li¬ 
mita pesantemente la disponibilità 
di memoria. “Skywalker” sfrutta 
completamente la memoria disponi¬ 
bile. Perciò è molto importante che 
nel listato non vengano inseriti ele¬ 
menti estranei (si evitino, dunque, le 
Rem e gli spazi fra le diverse istru¬ 
zioni). 

Inoltre è molto importante copiare 
con attenzione le linee che contengo¬ 
no le routine in linguaggio macchi¬ 
na: anche un piccolo errore potreb¬ 
be determinare il blocco totale del 
sistema. Perciò è bene salvare il pro¬ 
gramma prima di dare il Run. 

Non mi resta dunque che augurarvi 
buon divertimento con l’esecuzione 
di questo emozionante gioco di 
“movimento”. 


Bandiera Bianca ! - 

C• arrendiamo. Sapevomo che non lutti avrebbero ritolto Avventura nel coltello, ma pcntovamo 
che avenero o Ime no un mimmo d orgoglio. Non ci otpellovomo coti nume rote (e disperale) 
richieste d> muto Pare che mi ere foavyhe nono cadute m grò» e triti di ongotOO. che allegri e 
spennatoli giovani ti nano i/atformoti m zombie dot volto poffido ed emocioto. che monti je 
mogli) un tempo fedeli ed aflcltuoii preferirono pattare le notti davanti ol video, tutelando 
comprcmibili gelone 

Non vofevomo divulgare le «dazioni, ma non ce lo «entiomod*onumerci guette pesami responso 
bilità, soprattutto dopo «he le richieste d« soccorso hormo cominciato anche o pioverci m coso 
Qualcuno, più lurbo. ho scritto con butta preoHroncoto per lo ntpotta. ed è Poto accontentalo 
Qualcun altro ho telefonato nell'oca di pranzo di un giorno di gelo (—19*) mentre, con il r.scalda¬ 
mento guotto. tentavamo con moni tremanti di deglutire qualche torto di brodo bollente: ho 
ricevuto un troiiomento degno dell'orco che vive nei totlerronei del coltello 

Vo bene. Se liete disperali, se non avete un minimo di amor proprio, te ovete uno coti scarta 
considero! ione di voi tieni, se non avete p‘ù olcun ritegno, te liete disposti od ommetierr il vostro 
fallimento e sottoporvi a pubblico umdioz ione. gli aiuti per risolvete Avventura nel castello sono 
o vostro ditposizione 

Botto scrivere olla J.so/r (Viole Res’etV 5 201?4 Mdono) ollegondo l 5 000 m francobolli, uno 
Ietterò di questo tenore 

Sono un fallito: aiutotemi o risolvere 
Avventura nel costello. 

(Non dimenticate il vostro indirizzo). Sorete iscritti all'R-N I. (Registro Nazionale Incopoa) e 

riceverete un lotcicolo di otto pogme con il quale c L: -*-* A --*“ ’ , ~ l 

(entello A proposito, gli ondi tono cnllogrdoti (il pr _ 
lo) In questo modo poleie leggere solo qùokhe spunto. « 
lo fiducia in voi stetti Naturdmenle. potete onche divertirvi o leggere gli omti relativi olle 
difficoltà che avete già brillantemente molle, e pensare, ero cosi focile, non capisco come 
qudeuno posso btoccorti qui. In quell oltro punto, invece.. 

Enrico Colombini e Ch'oro Toveno 


P.s.t 


Avventura 
nel castello 

5 -, 


iscritti oli k.w.i. iKegniro rmnonoie mcopocij e 
lutile chiunque («per tomo) * in grado di uscire dal 
li (il progrommo «ter decifrarli è incluso nel fataco- 
t spunto, e (mire I avventuro senio perder e del tutto 


„ » ' 


Il contenuto e il tono della lettera è di esclusivo responsabilità degli «tutori di Avventuro 
nel 




















Zero e Croci 
con lo Spectrum 


Un appassionante gioco 
di strategia 

di Anacleto Furiati 

Z ero e croci è un gioco di 
strategia su scacchiera ap¬ 
partenente alla famiglia dei 
giochi di filetto. Le sue regole non 
sono complicate: su una scacchiera 
di 8x8 caselle due giocatori mettono, 
alternativamente le loro pedine fin¬ 


ché la riempiono, per due volte. Il 
gioco si svolge quindi in due man¬ 
che: nella prima un giocatore assu¬ 
me il ruolo di Aggressore e l’altro di 
Difensore, nella seconda i ruoli si 
invertono. Obiettivo dell’Aggresso¬ 
re è fare in modo che si creino alli¬ 
neamenti più lunghi possibili di pe¬ 
dine uguali disposte consecutiva- 
mente: ad ogni allineamento (anche 
di pedine del Difensore!), formato 
da almeno tre pedine uguali, verrà 
corrisposto all’Aggressore un pun¬ 
teggio equivalente al numero di pe¬ 


dine meno due. Il Difensore,* che 
non ottiene nessun punteggio, deve 
stare attento a non allineare le pro¬ 
prie pedine nel tentativo di inter¬ 
rompere gli allineamenti avversari. 
Vincerà la partita quel giocatore clic 
otterrà il punteggio più alto. 

Questo programma permette tre op¬ 
zioni: l’utente può utilizzarlo per 
giocare con un’altra persona, per sfi¬ 
dare Spectrum, per osservare il gio¬ 
co di Spectrum contro se stesso. La 
versione completa gira sullo Spec¬ 
trum 48 Kbyte (listato 1). C’è anche 


Listato 1. Zero e croci per Spectrum 48 Kbyte. 


** 

y 1984 Sri a c Leto Furlan 
Uiale Papa Giovanni 35 
31015 Conegiiano (TU) 

30 GO SUB 2625: GO SUB 1310 
40 GO SUB 2910: GG SUB 2710: G 
0 SU B 300 0: 60 T0 2000 

100H3MSBricerca filetti di Spec 
t rum 

llOlBàfiMf i ce r ca ns 
113 IF tot=35 THEN GO TG 194 
115 PPINT BRIGHT l;AT 20,3;"S T 
0 PENSANDO!"; BRIGHT 
0 ; AT 21, il; " li ve Uo"; " " ; l i v 
120 LET f =1: LET q=0 
130 FOR HI si TG 6 : FGR n=l TO 3 
140 LET h $=d 5 (n , m )+d * (n+1, m )+d $ 
(n +2 . ni ) +d $ (n +3 , m ) : GO SUB 305 
150 NEXT n : NEXT Hi 
l60HBSDOir i cer ca eq 
170 LET f =0 : LET q = l: FGR n=l T 
O 6 : FOR rn =1 TO 3 
180 LET h$=dsin,m TO ni+3): 60 S 
UB 305 

190 NEXT Hi: NEXT n: 60 TO 210 
194 FOR n = 1 TO 6 : FOR m=l TO 6 : 
IF d $ (n , rn ) =" " ThEN LET al=n: L 
ET a2sm: GO TO 1480 
198 NEXT ni : NEXT n 
20 OBBHOIr i ce r ca NO-SE 
210 LET f si; LET q = l 
220 FOR msi TO 3: FOR n*l TO 3 
230 LET h $=d 5 (n , m )+d * (n+1, m+1) + 


r éó'' 


SUB 


d % (n +2, ni +2) +d $ (n +3, m +3) 

305 

240 NEXT n : NEXT rn 
250 Mà3SM r icerca NE-SO 
260 LET r =1: LET q = -l ^ . 

270 FOR ni =4 TO 6: FOR ri=l TO 3 
280 LET h.*=d 5 (n,m)+d*(n+l,m-l) + 
d* (n+2,rn-2)+d$ (n+3,rn-3) : 60 SUB 
305 

290 NEXT n: NEXT ni: IF liV<4 TH 


EN 60 TO 705 
295 60 TO 610 
300 —darò — p unteqqio coppie 
305 IF h $ = " " THEN RETURN 

307 IF h$(l)<>" " AND h $ (2) < >" 

" AND h$(3)<>" " AND h $ (4) < >" " 
THEN RETURN 
310 LET giro=l 
315 LET 0=1: LET P=3 
320 IF h $ ( 0 TO P)=" "+m$+m$ OR 
h $ (o Tu p)=m$ + " "+m$ OR h $(0 TO 
* ) =m $+rn S + " " THEN GO SUB 360 
330 IF 0=1 THEN LET 0=2: LET p= 
4: 60 TO 320 

340 LET ni $ = i "0" AND m $ = ' X" ) + ( "X 
" AND rn$ = "0") : LET giro =9 irò -2.5 
: IF giro=-1.5 THEN 60 TO 315 
342 IF di f =1 THEN GO TO 410 
344 IF h*=rn$+m$ + " " THEN LET e 

(n +3*r , ih +3*q) =e in +3*r , m +3*q) -300 
0: 60 TO 410 

347 IF h $ = " "tm $+ni $ THEN LET e 

(n , m ) =e (n . m ) -3000 

348 IF l iV =1 ThEN RETURN 
350 GO TO 410 

360 FOR 1=0-1 TO p-1: IF h$(l+l 
) =" " then LET e (n +1 *r ,ni +1 *q) se ( 
n + i *r . m +1 *q ) +d i f * 10000/g i r o : RET 
URN 

370 NEXT l 

400 —d=às— punteqqio s ingoletti ce 
n t r a i. i 

410 LET giro=l 

420 IF h $ = " "+m t+" " OR h* = " " 

+ m $ + " " THEN 60 SUB 450 

430 LET rn$ = ( ”0" AND ni $ = "X" ) + ("X 
" AND m$="0"): LET giro=giro-2.5 
: IF girOs-1.5 THEN GO TO 420 
435 IF l iV =2 THEN RETURN 
440 GO TO 510 

450 FOR 1=1 TO 2: IF h$(l+l)=" 

" THEN LET e(n + l*r,ni + l*q)=e(n + i* 
r ,m + l *q)+di f *1000/gir 0 : RETURN 
460 NE XT l 

500 —gàiS— p unteqqio sipgoletti es 
tremali 
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Seguito listato versione 48 Kbyte. 

510 LET g iro=1 

520 IF h $ =tn $ + “ " OR h $ = “ + 

ro $ THEN GO SUB 550 

530 LET rn $ = ( "0" AND m$ = "X")+("X 
" RND m$ = "U"): LET gi \ o=gi r 0-2.5 
: IF gir 0 =-1.5 THEN GO TO 520 

54.0 RETURN 

550 LET e (n + r , m+q) =e (n+r ,m+q) +d 
i f # 100 /g i r o : LÉT e (n +2 * r , ni +2 *q ) = 
e (n+2*r,m+2*q) +dif *100/g iro: RET 
URN _ 

c a agli angoli 
LET n si: LET 1=1: 


SOOHalijHr i ce r 
610 LET rn = -1 
GO SUB 650 


620 LET ffl=l: GO SUB 650 _ 

630 LET n = 6 : LET L = -l: GO SUB b 
50 

64.0 LET ni = -1 : GO SUB 650: GO TU 
705 

650 LET 
d $ (3+2*m . 

F h $ ( U ) < > ' 


h $=d $ (3,n) +d $(3+m,n + 1) + 
, n + 2 # l ) : FOR U = 1 TO 3: I 
THEN NEXT U: RETURN 


750 

760 

?70 


DRTR 
DAT fi 
IF 


660 LET gir0 =1 

670 LET 2 $ =h $ ( 1 TO u-l)+h*(U + l 
TO 3) : IF Z$ = m*+rn$ THEN LET e (3 + 
Cu -1 ) *rn, n + ( u -1 ) * l ) =e ( 3 + ( u -1 ) *m , n 
+ (u -1) * l )+di f* 10000 /g i ro 

680 LET m$=("0" fiND mS = "X")+('X 
fiND rn $="0") : LET g i r o =g i r o -2.5 
• IF giro=-1.5 THEN GO TO 670 
690 R ET URN u ...... 

700MSaaiPunteggio probabilità 
di filetto „ _ 

705 RESTORE 710: FOR 0=1 Tu 6: 
FOR ni = 1 TO 6: READ a 
710 DATA 18,17,19,19,17,18 
72© DATfi 17,21,21,21,21,17 
730 DATA 19,21,23,23,21,19 
74-0 DATA 19,21,23,23,21,19 

- 17,21,21,21,21,17 

18,17,19,19,17,18 
d$ (n , Ih ) =■’ •' THEN LET e (n 
, m ) =e (n , m ) +d i f *a : GO TO 790 
780 LEt e in , rn ) =-100000 
790 NEXT m: NEXT n 
800|B3B1 s ce l ta punteggio max e 
indirizzamento a visualizzazione 
810 DIM K (36) : FOR rn='l TO b: FO 
P 1=1 TO 6: LET k ( (tn-1) *6+ l ) =e im 
, U : NEXT l : NEXT (il _ 

820 LET lax=0: FOR ri=l TO 35 
830 IF k (n+1) >k (n-lax) THEN LET 
K (n-lax) =-100000: GO TO 850 
34-0 GO TO 370 

850 IF lax >0 THEN GO SUB 980 
360 NEXT n: GO TO 890 
870 IF k (n+1) = k (n-lax) THEN LET 
lax=lax+1: NEXT n: GO TO 890 
880 LET k (n+ 1) =-100000 : LET lax 
=lax+l: NEXT n 
390 LET z =0 : FOR n='l TO 36 
900 IF k (n)>-100000 THEN LET Z = 
Z +1 : LET W=n 

NEXT n: LET j=0 
IF Z = 1 THEN GO TO 950 
LET nmax =1 + INT (Z*RND) : FuR 


TO 36: IF k (ui ) =-100000 THEN 


j =j + 1: IF j <nmax 


IF W <7 


LET 

GO 


THEN N 
THEN LET a 


910 
920 
930 
W =1 

NEXT W 
940 LET 
EXT W 

950 LET a 1 = 1 
2=W: GO TO 1480 
960 LET a 1=31 + 1: 
w <7 THEN LET a2=w 
970 GO TO 960 
980 FOR w =1 TO n . .. .~ 

000 THEN LET k(W)=-100000 
990 NEXT W: LET lax=0: RETURN 
l000B33J*punleggio aggressore 
IO 10 MaT3sM filetti verticali 
1020 LET agqr=0: IF tot<4 THEN R 
ET URN 


W =W-6 : IF 
TO 1480 


IF k(W)<>-100 


1025 FOR m =1 70 6: FOR n 
1030 LET h$=d$ in , m) +d$ (n 
<n+2,m): GO SUB 1210 
1040 NEXT n: NEXT m 
1050 —ggM filetti o r i z zon 
1060 FOR n =1 TO 6: FOR m 
1070 LET h$=d5(n,rn TO m + 
UB 1210 

1080 NEXT m: NEXT n 
1100 1 jaliU f i letti NO-SE 
1110 FOR m=l TO 4: FOR n 
1120 LET h$=d$ (n , m)+d$ (n 
d % (nt2,M+2): GO SUB 1210 
1130 NEXT n: NEXT m 
1150 lzfa« f i letti NE-SO 
1160 FOR rn =3 TO 6: FOR n 
1170 LET h*=ds in ,m)+d*(n 
d $ ( n +2,m-2) : GO SUB 1210 
USO NEXT ri: NEXT rn 
1190 PRINT AT 12,11;agg r 

PU 


= 1 TO 4 
+ 1, Ih ) +d $ 


tal i 
= 1 TO 4 
2) : GO S 


= 1 TO 4 
+1, rn +1 ) + 


= 1 TO 4 
+1 , rn -1 ) + 

_ : RETURN 

■i 30 Q lriaSl a ssegnazione punteggio 
aggressore _ 

1210 IF h $ = ,, XXX" OR h$ = "000" THE 
N LET aggr=aggr+l 
1220 RETURN 


!300 lalaiS1 ca ra t te r i 
1310 RESTORE 1330: 

READ- l : POKE USR ' 
l: POKE USR "b"+n,l 
1320 RETURN 

DATA 1,255,3,255,7 


grafi ci 
FOR n =0 TO 7: 
a"+n,l: READ 
: NEXT n 


1330 

43 

1340 
1400 
1410 
f l =0) 
LASH 
AND 
; m $ : 
1413 
1415 
1420 
1425 


128,15,2 


DATA 31,248,43,48,96,24,0,0 
ESSBinput mossa 
LET f l = (0 AND fl=l)+(l AND 


: PRINT AT 9,0;"Mette "; F 
1; ( "AGG." AND f l =0) + ( "DIF." 
fl=l); FLASH 0;" "; FLASH 1 
BEEP .3,20 

IF tot=35 THEN GO TO 194 
GO TO 1425 
BEEP .5,-25 

INPUT a$: IF LEN a$<>2 THEN 
GO TO 1420 

1430 FOR n =1 TO 6: IF a*(l)=b*(n 
: GO TO 1450 
TO 1420 

6 : IF a $(2) =C$ (n 
: GO TO 1470 
TO 1420 


TO 

) THEN LET a2=n 
1440 NEXT n: GO 
1450 FOR n=l TO 
) THEN LET al=n 
1460 NEXT n: GO 


1470 IF 
0 1420 
1480 IF 


d $ f a 1, a 2 ) < > 1 


THEN GO T 


Sq =1 THEN PRINT AT 20,3; 

" .1 AT 
ftl $=w$ 

THEN GO T 


n$="" OR 


: LET 
tot =0 


INK (1 AND m$="0")+(2 
);AT 2*a3+3,2*a4+15;n 

LET a3=a1 


, 2 , 10 : 

10 , 6 ; 


FLASH l;AT 2*a3+3, 
PRINT AT 


9,6,"? 
GO SU 


21, il; " 

1490 IF 
0 1510 
1500 PRINT 
AND m$ = "X' 

$ 

1510 LET d $ (a 1, a2) =m $ : 

: LET a4=a2: LET n$=m$ 

1520 PRINT INK (1 AND rn $ = "X" ) + (2 
AND m $ = "Q") 

2*a4+15;m$ 

1530 BEEP 
" : AT 

B 1020__ 

1 54fl lrfaisl contatore pedine 
1550 LET rn $ = ( "X" AND m* = "Q" ) + ("0 
" AND m $ = "X") : IF sP =1 THEN LET 
Sg = (0 AND Sq = 1 ) +(1 AND sg=0) 

1560 LET 10 t = 1 0 t +1: IF tot=36 TH 
EN GO TO 2810 

1570 IF NOT sg THEN PRINT AT 9,7 

;" " ; AT 10,6;" " : GO 

TO 1410 

1580 LET f l = (0 AND fl=l)+Cl AND 
f l =0 ) : GO TO 1620 
l600B313Bmossa a Spe c t rum 
1610 LET W*=”X”: GO SUB 2950 
T p r i m o = 1 

1620 IF so=2 THEN LET dif=(l AND 
di f =-l) + (-1 AND di f=1) 

1630 PRINT AT 9,0;"Mette "; FLAS 


LE 
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AI CONFINI 
DELLO SPEC 
Applicazioni i 


avanza 


JACKSON 


MACCHINA DEL 
COMMODORE 64 

Il libro apre nuovi orizzonti a tutti co¬ 
loro che sono interessati alla prò- 
gramolinone in linguaggio macchina 
del COMMODORE 64 
Con cassetta 
Cod S72D Pag. 208 


Un 29.000 


Clivo Prigmore 

IL BASIC IN 30 ORE 
PER SPECTRUM 

Questo semplice corso di autoistru¬ 
zione insegna a programmare, e un 
programma ha sempre bisogno di 
due ingredienti, un linguaggio e una 
struttura: dunque questo libro non 
insegna solo il BASIC, ma anche co¬ 
me si organizza correttamente un 
buon programma. 

Cod. SOIB Pag. 360 Un 40.000 


Un esame attento dei listati consenti¬ 
rà al lettore di apprendere i ‘segreti* 
della programmazione strutturata e 
migliorare notevolmente le proprie 
capacità di programmatore. 

I programmi presentati vanno dagli 
arcade più (amosi, tra cui il celebre 
‘Spectrum Invaders* ai programmi di 
utilità più interessanti, dai giochi 
d'azzardo ai programmi didattici, dai 
programmi (unzionali a quelli di ma¬ 
tematica e di giochi di strategia. 

Con cassetta 

Cod. 4148 Pag. 180 Un 28.000 


La biblioteca che fa testo. 


Rodnay Zaks 

IL TUO PRIMO 
PROGRAMMA IN BASIC 

La diffusione del BASIC per la sua 
semplicità e quasi 'naturalezza' di 
programmazione fa si che una cultu¬ 
ra generale sull'Informatica e la sua 
applicazione non può prescindere da 
una conoscenza di base di questo 
linguaggio. Questo lo scopo del li¬ 
bro: permettere anche a chi ha sol¬ 
tanto una cultura di base, di capire 
che cos'è il BASIC e come si usa. 
Cod. S07B Pag. 216 Un 19.500 

Czes Kosniowski 

MATEMATICA E 
COMMODORE 64 

Tutte le funzioni matematiche dispo¬ 
nibili sul C64 sono qui descritte, ed il 
loro uso è illustrato con programmi 
che possono essere utilizzati dal let¬ 
tore aH’interno dei suoi, per partico¬ 
lari applicazioni. 

Il libro contiene anche informazioni e 
programmi su altri argomenti, come 
i codici e la crittografia, i numeri ca¬ 
suali, le serie, la trigonometria, i nu¬ 
meri primi e l’analisi statistica dei 
dati. 

Con cassetta 

Cod. 5700 Pag. 160 Un 24.000 


Mike Grece 

ADVENTURE E 
COMMODORE 64 

Un manuale per ideare e utilizzare 
programmi di Adventure basati 
esclusivamente sul testo. 

Una progettazione modulare del pro¬ 
gramma rende più facile la compren¬ 
sione della struttura. L'abilità nella 
programmazione avrà modo di emer¬ 
gere durante la costruzione graduale 
dell'Adventure, per modificare il pro¬ 
gramma dimostrativo, o addirittura 
per costruirne uno nuovo. 

Con cassetta 

Cod. 571D Pag. 240 Un 35.000 

Rita Bonelli 

COMMODORE 16 
PER TE: BASIC 3.5 

È un libro di introduzione al BASIC 
CI 6 con il classico taglio didattico 
Bonelli. Adatto per la Scuola media 
inferiore e per chi non conosce l'in¬ 
formatica. 

La cassetta allegata al libro contiene 
diverse lezioni, una per ogni capito¬ 
lo. che devono essere lette prima del 
capitolo relativo. 

Con cassetta 

Cod. 4138 Pag. 296 Un 35.000 
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Seguito listato versione 48 Kbyte. 

H lj ("fiGGR." RND dif=1) + ("DIF." 
AND di f b- 1) ;RT 10,6; " (Spec.) ": I 
F sp<>2 THEN BEEP .3,20: Gu TO 1 
660 

164-0 PRINT FLRSH l;RT 9,12;ffi* 
1650 LET w*=ffi* _ 

1660 IF p r i ivi0=1 THEN GG SUB 1630 
: LET a l=a5: GO SUB 1660: LET a2 
=a5: LET Pi'ini0=0: GO TG 14-80 
1670 DIM e (6,6): GO TG 110 • _ 

1680 LET n=INT (RND*10): LET a5= 
(3+INT (RND*2) RND n <7) +(2+INT ( 
RND* 4) AN D n>=7): RETURN 
PGaG BiHM fi) e n u ' 

2010 PRINT RT 3 , 0 ; "Pretni-r- per 
'"Le regole"'"del gioco" 

2020 PRINT AT 17,0; " 

88. Premi: 

-a- per 


gioc 
giocare cont 
Spect.rum con 


LET 
GO 

_ LET 
2190: 


2030 PRINT RT 19,0; 
are contro un amico 
204.0 PRINT " -s - per 
ro Spectruffi " 

2050 PRINT "-p- per 
tro spect rum" 

2100H33flii nd i r i zzamen to 
2110 PRUSE 0: IF INKEY*»"r 
GO SUB 2310: GG TO 234-0 
2120 IF INKEY$="a" THEN 
: LET sg =0 : GO SUB 2310 
2190: GO TO 2160 
2130 IF INKEY* = "S ” THEN 
: GO SUB 2310: GO SUB 
0 2210 . „ 
214.0 IF INKEY *="P " THEN LET 
• LET sg=l: GO SUB 2310: GO 
2190: LET di f = -1 : LET L i V =4- 
TO 1610 

2150 GO TO 2110 
2160 PRINT FLRSH 1;RT 19, 
co con x L'aggressore? Cs 
FLRSH 0;"iche metterà' pe 
j": PRUSE 0: IF INKEY $ < >" 
LET m * = "0" 

GO SUB 2190: GO SUB 
14-10 

JjSBBcance L La in bass 
FOR ffi =0 TO 31 STEP 4- 


2170 
0 TO 
21601 
2190 


THEN 

SP =0 
SUB 

SP = 1 
GO T 

sp=2 

SUB 

GO 


©; "Ind i 
/n > " ' ; 

r primo 
s" THEN 

2950: G 


= 13 TO 
22001 


21: PRUSE 
NEXT n: 
lo P z i o n i 


"3: PRINT 
NEXT ffi: 
quando g 


FOR n 
RT n , m 
RETURN 
ioca Sp 


ectrum ___ 

2210 PRINT FLRSH 1;RT 19,2;"SCEG 
LI IL LIUELLO: ";RT 19,22;"1";RT 
19.24;"2";RT 19,26;"3";RT 19,28 
;"4": PRUSE 0 

2213 IF CODE INKEY*<49 OR CODE I 

NKEY* >52 THEN GO TO 2210 

2216 LET liV=UPL INKEY*: PRINT R 

2213 PRINT VlRSH 1;RT 20,0; "CHE 
SIMBOLO SCEGLI ? (X/0) ": PRUS 

E 0 

2220 IF INKEY * = "X" THEN LET ffi* = " 
X": GO TO 2250 

2230 IF INKEY$ = " 0 " THEN LET m* = 
0": GO TO 2250 
2240 GO TO 2220 

2250 LET w*= ( "X" RND m$ = "0")+("0 
" RND m* = "X") : PRINT RT 20,31;m* 
2260 PRINT FLRSH 1;RT 21,0;"UUOI 
IN 12IRRE DR RGGRE350RE ?" : PRUS 

2270 IF INKEY $="S" THEN PRINT RT 
21,31; "S": GO SUB 2190: LET sg= 
0: LET primo=0: LET dif=-l: GO S 
IJ 6 2950: GO TO 1410 
2280 PRINT RT 21,31; “N": GO SUB 
2190: LET sg=l: LET priffiO=l: GO 
SUB 2950: LET dif=l: LET fl=0: G 
0 TO 1620 

2300 KHQBcance t La centro 

2310 FOR ffi =0 TO 11 STEP 4: FOR n 

=3 TO 11: PRUSE 3: PRINT RT n,m; 

" ": NEXT n: NEXT ffi 

2320 RETU RN 

2330KSaii struzioni 

2340 LET j =2370 : LET i=18: RESTO 

RE j 

2350 IF j =2560 THEN PRUSE 100: B 
EEP .5.-20: GO TO 2010 
2360 RÉRD i$ 

2370 DRTR ” REGOLE DEL Gl 

OCO" 

2380 DRTR " . 

2390 DRTR "Ogni partita si svolg 
e con una" 

2400 DRTR "RNORTR e un RITORNO. 
Ne L l 'ANDATA" 

2410 DRTR "un giocatore fa da 
AGGRESSORE" 

2420 DRTR "e L'altro da DIFENSOR 
E. RI RI-" 

2430 DRTR "TORNO Le parti Si 

invertono." _ _ 

244.0 QRTfl "Scopo dell AGGRESSORE 
e rea Liz 

2450 DRTR "zare allineamenti lun 
ghi il piu'" 

2460 DRTR "possibile: ogni al Un 
eamentovar" 

2470 DRTR "ra' tanti punti quan 
ti sim bo l i " 

2480 DRTR "contiene, meno due. 


una versione per lo Spectrum 16 
Kbyte, presentata nel listato 2, otte¬ 
nuta dalla precedente eliminando i 
“fronzoli”, ma anche alcune routine 
riguardanti la ricerca della migliore 
mossa quando gioca Spectrum. 

Ciononostante alcune linee sono 
state “compattate" senza determi¬ 
nare tuttavia alcun ritardo nel tem¬ 
po di “riflessione” dello Spectrum, 
che risulta essere in media di un mi¬ 
nuto primo per ogni mossa. Per la 
versione completa invece il tempo è 
di circa un minuto e venti secondi 


per il livello più alto (4°), mentre agli 
altri livelli risulta intermedio fra i 
due valori citati. 


Spectrum arbitro 

Qualunque opzione di gioco l’u¬ 
tente scelga, Spectrum dirige il gio¬ 
co: assegna la mossa a chi spetta 
(ricordandone il ruolo), ne controlla 
la correttezza, segna sulla scacchiera 
la pedina alla posizione voluta (linee 
1410-1530) e, soprattutto, calcola la 


lunghezza di ogni allineamento, as¬ 
segnando così il punteggio all’Ag¬ 
gressore (linee 1000-1220): infine di¬ 
chiara l’esito della partita. 


Sfida a Spectrum 

E’ decisamente l’opzione più inte¬ 
ressante. Si può cercare di battere 
Spectrum a quattro diversi livelli di 
gioco. Il primo livello (il più debole) 
corrisponde circa al gioco della ver¬ 
sione ridotta per 16 Kbyte del pro- 
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Zero e Croci 
con lo Spectrum. 


24.90 DfiTfi “SCOPO del DIFENSORE 
e'impedire" 

2500 DfiTfi "ciò', evitando quin 
di di al-" 

2510 DfiTfi "lineare anche i propi 
i s i m bo i i , “ 

2520 DfiTfi "per non regalare pun 
ti all'RG-" , . , 

2530 DfiTfl "GRESSORE (Che e' il 3 
o lo a se 

254.0 DfiTfi "gnare punti). 

2550 DfiTfi "La manche termina qua 
ndo il qua-" . ,. , 

2560 DfiTfi "drato e' coperto di s 
imboli. fil" , . 

2570 DfiTfi "termine del RITuRNu i 
giocatori" 

2580 DfiTfi "confrontano i puntegg 
i ottenuti." 

2590 PRINT fiT i,0;i$: GO SUB 26© 
0- GO TO 2360 

2600 LET i=i+1: IF i=22 THEN LET 
i=18 : PAUSE 150: BEEP .05,10: L 
ET j = j + 10 : RESTORE j: GO TO 2350 
2610 RETU RN 

itoli , , 

2630 PAPER 4: BORDER 4: INh 0: C 

LS : FOR n =PI TO O STEP -PI/10 
2640 BEEP .05,-10: PLOT 128,38: 
DRfiU 87*5 IN n,87*005 n: PLOT 128 
,88: DRfiU -87*SIN n,-87*005 n 

2650 NEXT n _ ,_ 

2660 FOR n=2*PI TO 0 STEP -PI/10 
2670 BEEP .05,10: CIRCLE 128,88, 

n *87/ (2 *PI! _ 

2680 PRINT BRIGHT l;fiT 9,10; ZER 
0 E CROCI"; BRIGHT 0;fiT ll,10;"d 
i fi. Furlan" _ „ _ ^ _ 

2690 NEXT n: BEEP 2,-15: PhPER 7 
■ BORDER 7: CLS : RETURN 
2700ÉSaiinizializzazioni variai. 

2710 LET n=0: LET m=0: LET 1=0 
2720 LET b$ = "a bCde f" 

2730 LET c$=" 1234.5678" 

2740 LET m«="X": LET n$="" 

2750 DIM d $ (6,6) : LET aggr=0: LE 
T dif =0 

2760 LET a3=0 : LET a4=0: LET tl = 
1 

2770 LET tOt=0: LET man Che=0 
2780 RETU RN 

2880 HàaSBtermine manches 


2810 LET manche=manche+l: LET to 
t =0 

2815 IF rnanChe=1 AND Sp=l THEN L 
ET di f = ( -1 AND di f =1) + ( 1 AND dif 
=-l) : LET f1=1 

2820 IF man che=1 THEN LET avv=ag 
qr: DIN d$(6,6)• BEEP 2,30: CLS 
: GO SUB 2910: GO SUB 2950: GO S 
U6 3010: LET tot=-l: PRINT fiT 17 
,0;: LET primo=( 
1 AND (dif =1 OR SP =2) ) : GO TO 15 
50 

avvtaggr then beep 1,-10 
FLASH 1;fiT 19,10;"UINCE 
20,7;"differenza ”;aggr- 
TO 2360 

av v > agg r THEN BEEP 1,-10 
FLASH 1;fiT 19,10;"UINCE 
AND m$ = "0") + ("0" AND m$ = " 

" avv-ag 


2830 IF 
: PRINT 
"; m$, fiT 
avv: GO 
2340 IF 
: PRINT 
“ ; ("X" 

X"):fiT 20,7;"differenza 
qr:'GO TO 2860 
2850 BEEP 1,0 PRINT 
19.10; "PfiRITA ' ! " 

2860 PRINT fiT 9,0;" 

PER CONTINUARE PREMI 
2870 PAUSE 0: CLEfiR 
l:14iB indi cazioni 
PRINT INUERSE 1;AT 1,10,"ZE 
CROCI"; INUERSE O;fiT 1,23;" 


2900 
2910 
RO E 

2920 

tt“ 

2930 

29401 

2950 


FLASH 1;fiT 

" : t< 1 ; ‘ 

UN TASTO" 
GO TO 40 
alte 


PRINT fiT 4,0; 


RETU RN 

SHaUndi razioni medie 
PRINT fiT 7,3;("ANDATA" fiND 
man che= 0 )+ ("RITORNO" AND man che = 
1 );fiT 12 , 0 ;"PUNTEGGIO:": IF mane 
he =1 THEN PRINT AT 14,0;"PUNTEGG 
IO"ANDATO:"; FLASH 1;AT 15,7; 
aggr 

2960 RETU RN 
3000EHE5M3 cacchiera 
3010 PRINT fiT 4,16;"P";fiT 
"I,"; fiT 4,28; " 7 " ;AT 16,28; _ 

3020 FOR n =17 TO 27: PRINT AT 4, 
I6,n;"«": NEXT n 
n=s TO 15: PRINT AT n , 1 
n,28; " I": NEXT n 
m = 124 

n =0 TO 64 STEP 16: PLOT 
DRfiU 97,0: NEXT n: IF 




6,16 ; 


n; — 
3030 
6; "I 
3040 
3050 
131 
m =123 


fiT 
FOR 
; AT 
LET 
FOR 
m -n : 

THEN GO TO 


' f KJ . I 

3070 
GO TO 3050 


3060 LET m = 123 
3070 LET m=147 
3080 FOR n=0 TO 64 STEP 16: 

m+n.43: DRfiU 0,97: NEXT n: 
=148 THEN GO TO 3100 
3090 LET m=143 : GO TO 3030 
3100 PLOT 132,44: DRfiU 95,0 
U 0,95: DRfiU -95,0: DRfiU 0, 


PLOT 
IF m 


3110 FOR n=5 TO 15 STEP 2: 

fiT n .29;n/2-1.5: NEXT n 
3120 PRINT AT 17,17;"fi B C 

• I 

3130 RETURN 


DRfi 

95 

PRINT 
D E F 


gramma. 

La routine che provvede alla scelta 
della migliore mossa (per Spectrum 
sia Aggressore che Difensore) va 
dalla linea 100 alla linea 999. Ad 
ogni casella della scacchiera viene 
assegnato un punteggio (linee 100- 
795), le rimanenti linee della routine 
determinano la posizione della ca¬ 
sella a punteggio massimo. 
Soffermiamoci ora sul primo grup¬ 
po di linee (100-795). 

In quelle che vanno da 100 a 690 si 
assegna un punteggio in base alla 


presenza di altre pedine, nelle rima¬ 
nenti si tiene conto solamente della 
probabilità per ogni casella di essere 
perno di filetti (per esempio le caselle 
centrali sono favorite). Dato che tale 
probabilità non è determinante, il 
punteggio assegnato da questa rou¬ 
tine è basso rispetto a quelli assegna¬ 
ti in 100-795. Nelle linee comprese 
fra 100 e 550 vengono assegnati pun¬ 
teggi alle caselle analizzando la 
struttura di una stringa, h$, formata 
da quattro caselle consecutive. Le 
linee 110-290 provvedono a formare 


tutte le possibili strisce h$ e le indi¬ 
rizzano poi alle subroutine 300,400, 
500. 

Nella 300 si studia h$ cercandovi la 
presenza di due pedine uguali che 
possono essere consecutive con a la¬ 
to una casella vuota oppure separate 
da questa. Al punteggio di ogni ca¬ 
sella, la cui occupazione permette di 
formare una terna di pedine allinea¬ 
te consecutivamente, viene aggiunto 
un punteggio molto alto se si forma 
un filetto dell’Aggressore, molto 
basso (negativo) se si forma un filct- 




















Seguito listato versione 48 Kbyte. 

* ZERO E CROCI **(16K) 
1984. fln a c Le t o Furia n 
iale Papa Giovanni 35 
31015 Coriegli ano (TU) 

40 GO SUB URL "2910": GO SUB U 
RL "2710": GO SUB URL "3000": GO 
TO URL "2000" 

115 PRINT BRIGHT URL "1".:RT URL 
”20“ .. URL "3";"S T 0 P E N S 
R N DO !" 

120 LET f =1: LET q = 0 
130 POR m=l TO 6 : FOR n=l Tu 3 
140 LET h $ =d ì(n, rii ) + d $ ( n + 1. W ) +d $ 
(n +2 . ni ) +d $ C n +3 . rn ) : GO SUB 305 
150 NEXT ri : NEXT ni 
170 LET r =0 : LET q = l: FOR n =1 T 
O 6: FOR ni = 1 TO 3 
ISO LET h$=dS(n,m TO m+3): GO S 
UB 305 

190 NEXT n) : NEXT n 
210 LET f =1: LET q = l 
220 FOR rii = 1 TO 3: FOR n=l TO 3 
230 LET h $ =d $ (n , ni ) +d $ (n +1, ni +1) + 
d $ ( ri +2 , ni +2) +d $ ( n +3 , rii +3) : GO SUB 
305 

240 NEXT n : NEXT ni 
260 LET re 1: LET q = -l 
270 FOR rii =4 TO 6: FOR ri = 1 TO 3 
280 LET h $ =d $ (n rii ) +d $ (n +1. rn -1 ) + 
d $ (n +2 . rn -2 ) + d $ ( n +3 . ni -3 ) : 60 SUB 

305 

290 NEXT n: NEXT ni: GO TO 610 
305 IF h $ = " " THEN RETURN 

307 IF h $ ( 1) < > " " AND h$(2)<>" 

" RND h $(3) < >" " RND b$<4)<>“ " 
THEN RETURN 
310 LET giro=l 
315 LET o=l: LET P=3 
320 IF h $(0 TO p)=" "+ni$+rn$ OR 
h $ (o TO P)=m$ + " ”+rn$ OR h $ (o TO 
p) =m $+m $ + " " THEN GO SUB 360 
330 IF 0=1 THEN LET 0=2: LET p= 
4: GO TO 320 

340 LET rn$=(“0" RND ni $ = "X" ) + ( "X 
" RND rii $ = " 0" ) : LET g i ro =g i ro -2.5 
: IF giro=-1.5 THEN GO TO 315 
350 GO TO 410 

360 FOR 1=0-1 TO P-l: IF h$(l+l 
) =" " THEN LET fi (n + l ST .. Hi + l *q> =6 ( 
n + l * r , m + l *q ) +d i f * 10000/g i r 0 : RET 
URN 

370 NEXT L 
410 LET giro=l 

420 IF h $ = " " +m $ +" " OR h$ = " " 

+ni $ + " " THEN GO SUB 450 

430 LET rn $ = ( "0" RND ni $ = " X" ) + ( "X 
" RND rn $="0") : LET g i ro =g i ro-2.5 
: IF giro=-1.5 THEN GO TO 420 
440 RETURN 

450 FOR 1=1 TO 2: IF h$ ( l +1) =" 

" THEN LET e (n + L *r , ni + L *q ) =e ( n + l * 
r . ni +1 *q ) +d i f * 1000 /g irò: return 
460 NEXT L 

710 FOR n =1 TO 6: FOR ni = 1 TO 6 
720 IF d$(n,m)=" " THEN GO TO 7 
40 

730 LET e (r.. rn ) =-100000 
740 NEXT ni : NEXT ri 
310 DIM k(36): FOR m=l TO 6: FO 
R 1=1 TO 6: LET K'i (m-1) «6+l ) =e 0» 

, 1 . ) : NEXT L : NEXT rn 
320 LET L a X = 0 : FOR n=i TO 35 
330 IF k (n +1) > k (ri - Lax ) THEN LET 



K (n-lax) =-100000: GO TO 850 
340 GO Tu 870 

850 IF LaX >0 THEN GO SUB 980 
360 NEXT ri : GO TO 890 
370 IF k (n+1) =k (n -lax) THEN LET 
l a X = l a X +1 : NEXT ri : GO T0 890 
830 LET k. (n+1) =-100000: LET lax 
= l ax +1 : NEXT n 
390 LET Z =0 : FOR n=l TO 36 
900 IF k(n) >-100000 THEN LET Z= 
z +1 : LET w=n 
910 NEXT n: LET j=PI-PI 
920 IF Z=1 THEN 60 TO 950 
930 LET nmax =1 + INT ( Z *RND) : FOR 
W=1 TO 36: IF k(Wi=-100000 THEN 
NEXT W 

940 LET j=j+l: IF j<nrnax THEN N 
EXT W 

950 LET a 1 = 1: IF W<7 THEN LET a 
2=W: GO TO 1480 

960 LET a 1=31 + 1: LET W=W-6 : IF 
UH <7 THEN LET 3 2=W : GO TO 1480 
970 GO TO 960 

980 FOR I.u = 1 TO n : IF K(W) 0-100 
000 THEN LET K (W) =-100000 
990 NEXT W: LET lax=0: RETURN 
1020 LET a n d r =0 : IF tot <4 THEN R 
ETURN 

1025 FOR m=1 TO 6: FOR n=l TO 4 

1030 LET h $ =d $ (n , m ) +d $ (n +1ni ) +d $ 

(n+2.m) : GO SUB 1210 

1040 NEXT n : NEXT ni 

1060 FOR ri = 1 TO 6: FOR ni = 1 TO 4 

1070 LET h$=d 5 (n,ni TO tfi+2): GO S 

UB 1210 

1080 NEXT ni : NEXT ri 

1110 FOR rn =1 TO 4: FOR n=l TO 4 

1120 LET h $=d $ (n , ni ) +d $ (n + 1, rn +l) + 

d $ (ri+2 . rn+2) : GO SUB 1210 

1130 NEXT n: NEXT ni 

1160 FOR ni =3 TO 6: FOR n=l TO 4 

1170 LET h $ =d $ ( ri , rn ) +d $ (n +1 . rn -1 ) + 

d$(n+2 . M-2) : GO SUB 1210 

1180 NEXT n : NEXT rn 

1190 PRINT RT 12,11.; a g g r : RETURN 

1210 IF h $ = "XXX" OR h $ = "000" THE 
N LET aqgr=aggr+l 
1220 RETURN 

1410 LET fl=(0 RND fl=ì)+(l RND 
f l =0) : PRINT RT 9.0; "Mette "; F 
LRSH 1.; ( "AGG . " RND f l =8) + ( "DIF. " 
RND f l =1 ) ; FLASH 0.;" FLASH 1 
; rn $ : BEEP .3.20 : GO TO 1425 
1420 BEEP .5.-25 

1425 INPUT a$: IF LEN a$OURL "2 
" THEN GO TO 1420 

1430 FOR n=l TO 6: IF a$(l)=b$(n 
) THEN LET a2=n: GO TO 1450 
1440 NEXT n: GO TO URL "1420" 
1450 FOR n=l TO 6: IF a$(2)=C$(n 
) THEN LET a 1=0: GO TO 1470 
1460 NEXT ri: GO TO URL "1420" 
1470 IF d $ (al,a2) <>" " THEN GO T 
0 URL "1420" 

1480 IF sg=URL "1” THEN PRINT RT 
20.3;" 

" : LET rn$=w$ 

1490 IF n$="" OR tot=PI-PI THEN 
GO TO URL "1510" 

1500 PRINT INK (1 RND rn$ = "0")+(2 
RND ni$ = "X").;RT 2*a3+3 , 2*a4 + 15.; n 

$ 

1510 LET d$ (3l,a2) =m $ : LET a3=al 
: LET 34=32: LET n$=m$ 

1520 PRINT INK (1 RND hi $ = "X" ) + (2 
RND m $ = ”0”) ; FLASH 1;RT 2*a3+3, 
2+34 + 15 ; rn $ 

1530 BEEP .2.10: PRINT RT 9,6;"? 

" ; RT 10.6.;" ": GO SU 

B 1020 

1550 LET rn $ = ("X" RND ni $ = "0" ) + ( "0 
" RND m# = "X") : IF £P =1 THEN LET 
S q = ( 0 RND S q =1) + ( 1 RND sg=0) 

1560 LET tOt=tOt+l: IF tot=36 TH 
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Zero e Croci 
con lo Spectrum 


Seguito listato versione 16 Kbyte. 

EN GO TO 2810 

1E70 IF NOT S9 THEN PRINT RT 9,7 
; " ";flT 10,6;" ": GO 

TO 14-10 

1580 LET fl = (0 AND f 1=1) + (1 AND 
f l = 0 ) : GO TO URL "1620" 

1610 LET ij) $ =" X " : GO 5UB UAL "295 
0" : LET primo=UAL "1" 

1620 IF £p =UAL "2" THEN LET dif = 
i'UAL "1" AND dif=UAL "-1")+(UAL 
"-1" AND dif=UAL "1") 

1630 PRINT hT 9 ,0 ;"Me 1te "; FLhS 
H 1; ("RGGR." AND di f=1) +("DIF." 
AND d i f = -1 ) : AT 10,6 .; " (Spe C . ) " : I 
F spoUAL "2" THEN BEEP .3,20: G 
0 TO 1660 

164-0 PRINT FLA5H UAL " 1" AT UAL 
"9 ".UAL "12".; ni* 

1650 LET W $ =111 $ , _ „„ 

1660 IF p r i m 0 = 1 THEN LET al=3 + IN 
T (RND*4) : LET a2=3+INT (RND*4) : 
LET P r i m0 =P I -PI : GO TO UAL " 14-8 

0” 

1670 DIM e(UAL "6",UAL "6"): Gu 
TO UAL "110" 

2020 PRINT AT 17,0; "8«8»8tttt08tt«tt 
88"'" Premi 

2030 PRINT AT UAL "19",PI-PI; -a 
- per Piccare contro un amico 
204.0 PRINT "-s- per giocare cont 
re Spectrum " 

2050 PRINT "-p- per Spe c t r um con 
tro Spectrum" 

2110 PAUSE PI-PI: IF INKEY$="i" 
THEN GO SUB UAL "2310": GO TO UA 
L "234-0" 

2120 IF INKEY$ = "a" THEN LET £P=P 
I-PI : LET £ Q =P I -PI : GO SUB UAL " 
2190": GO TÒ UAL "2160" 

2130 IF INKEY$ = "£" THEN LET £P =U 
AL "1": GO SUB UAL "2190": GO TO 
UAL "2210" 

214.0 IF INKEY$ = "p" THEN LET SP=2 
: LET £9=1: GO SUB 2190: LET dif 
= -1 : GO TO 1610 
2150 GO TO UAL "2110" 

2160 PRINT FLASH 1 ;AT 19,PI-PI;" 
ìndico con X L'aggressore? i.s/n) 
flash 0 ;"(che metterà' per p 
rimo)": PAUSE 0: IF INKEY$<>"S" 
THEN LET m$="0" , 

2170 GO SUB UAL "2190": GO SUB U 
AL "2950”: GO TO UAL "1410" 

2190 FOR m =0 TO 31 STEP 4-: FOR n 
=18 TO 21: PAUSE 3: PRINT AT n.m 
;" ": NEXT n: NEXT m: RETURN 

2210 PRINT FLASH UAL "1";AT UAL 
"19",PI-PI;"CHE SIMBOLO SCEGLI ? 

(X/O)": PAUSE PI-PI 
2220 IF INKEY $ = "X" THEN LET m$ = " 
X": GO TO UAL "2250" 

2230 IF INKEY$ = "0" THEN LET lii$ = " 
0": GO TO UAL "2250" 

224-0 GO TO UAL "2220" 

2250 LET W*=("X" AND m$ = "0") + ( "0 
" AND m$="X"): PRINT AT UAL "19" 
,UAL "31";m $ 

2260 PRINT FLASH UAL "1";AT UAL 
"20",PI-PI;"UUOI INIZIARE DA AGG 
RESSORE ?" : PAUSE PI-PI 
2270 IF INKEY$="S" THEN PRINT AT 
UAL "20",UAL "31";"S": GO SUB U 
AL "2190": LET sg=0: LET primo=0 


LET dif = -1: GO SUB 2950: GO TO 
14-10 

2230 PRINT AT 20,31;"N": Gu SUB 
2190: LET sg=UAL "1": LET primo= 
UAL "1" GO SUB 2950: LET dif=UA 
il "1" • LET fl=PI-PI: GO TO 1620 
2710 LET n=PI-PI: LET m=PI-PI: L 
ET l=PI-PI 

2720 LET b$ = "a bCde f" 

2730 LET C $="123456" 

274-0 LET m $ = " X " : LET n$ = "” 

2750 DIM d $ (UAL "6",UAL "6"): LE 
T aggr =PI-PI: LET dif=PI-Pl 
2760" LET a3=PI-PI : LET a4-=PI-PI: 
LET fl=UAL "1" 

2770 LET tot =PI-PI : LET man che=P 
I-PI 

2780 RETURN 

2810 LET manche=manche+UAL "1": 
LET tot=PI-PI 

2815 IF man che=1 AND SP=1 THEN L 
ET di f = ( -1 AND di f =1) +(1 AND dif 
=-l): LET ft=l 

2820 IF man che=1 THEN LET avv =ag 
gr- DIM d $(6.6) : BEEP 2,30: CLS 
7 Gin SUB 2910: GO SUB 2950: 60 S 

UB 3010: LET tOt=-l: PRINT AT 17 
, 0 ; •■88888888888888" : let primo=( 
i AND (dif=l OR £p =2) ) : GO TO 15 
50 

2880 IF avvoggr THEN BEEP 1,-10 
: PRINT FLASH'Ì;AT 19,10;"UINCE 
"; m $; AT 20 ,7;"differenza ”;aggr- 
avv: GO TO 2860 

284-0 IF avv>aggr THEN BEEP 1,-10 
: PRINT FLASH 1;AT 19,10;"UINCE 
("X" AND di $ = "0" ) + ( "0" AND nì$ = " 
X");AT 20,7;"differenza ";avv-ag 
gr: GO TO 2860 

2850 BEEP UAL "1",PI-PI: PRINT F 
LASH UAL "1";AT UAL "19",UAL "10 
•i • • • p'AR ITA ' ! " 

2860 PRINT AT 9,0;" ";«UAL 

"1";"PER CONTINUARE PREMI UN TA 
STO" 

3870 PAUSE PI-PI: CLEAR : GO TO 
UAL "4-0" „ , 

2910 PRINT INUERSE UAL "1".;AT 1, 
9;"ZERO E CROCI"; INUERSE PI-PI; 
AT 1,25;"© 1984-" ; AT 2,23; "A. Fu ri 

2920 PRINT AT UAL "4",PI-PI;"««« 
88888888888" 

2930 RETURN 

2950 PRINT AT 7.3;("ANDATA" AND 
man che=0)+ ( "RITORNO" AND man che = 
l);AT 12.0;"PUNTEGGIO:": IF mane 
he =1 THEN PRINT AT 14-, 0; "PUNTEGG 
IO.ANDATA:”; FLASH 1;AT 15,7;a 

2960 RETURN = 

3010 PRINT AT 4-,l6;"P";AT 16,16, 
"fc";AT 4-,26;"T';AT 16,28; "4" 

3020 FOR n =17 TO 27: PRINT hT 4-, 
n;"■";AT I6,n;"«": NEXT n 
3030 FOR n=5 TO 15: PRINT RT n,l 
6; "I " ; AT n , 28; " S" : NEXT n 
304.0 LET Ili =UAL "124" 

3050 FOR n=0 TO 64 STEP 16: PLOT 
131,rn-n: DRAU 97,0: NEXT n: IF 
m =123 THEN GO TO 3070 
3060 LET rii =UAL "123": GO Tu UHL 
"3050" 

3070 LET m =UAL "147" „ 

8080 FOR n=0 TO 64 STEP 16: PLuT 
m +n,43 : DRAU 0,97: NEXT n: IF m 
=148 THEN GO TO UAL "3100" 

3090 LET rii =UAL "148": GO TO UAL 
"3080" 

3100 PLOT 132,44: DRAU 95,0: DRA 
LJ 0,95: DRAU -95,0: DRAU 0,-95 
3110 FOR n=S TO 15 STEP 2: PRINT 
AT n ,29 ; n/2-1.5 : NEXT n 
3120 PRINT AT 17,17;"A B C D E F 

3130 RETURN 
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to del Difensore, abbastanza alto se 
si impedisce (almeno in quel verso) 
un filetto dell’Aggressore, piuttosto 
basso (sempre negativo) se viene im¬ 
pedito un filetto del Difensore. Tut¬ 
te queste varie possibilità vengono 
interpretate correttamente dall’uni¬ 
ca linea 360, grazie alla “variabilità” 
delle variabili “dif” e “giro” (e so¬ 
prattutto al fatto che “meno per me¬ 
no fa più”!). 

Nelle subroutine 400 e 500 si assegna 
il punteggio (ridotto ad un decimo 
ed a un centesimo dei precedenti) in 
base alle minacce di filetto (o di in¬ 
terruzione di filetto) che si creano 
occupando certe caselle. Infatti 
quando l’Aggressore ha disposto su 
una linea due sue pedine accostate e 
con ai due lati una casella vuota, alla 
sua mossa successiva sicuramente 
formerà filetto di tre pedine (il letto¬ 
re provi). Pertanto se in h$ vi è una 
sola pedina in seconda (o terza) po¬ 
sizione, l’occupazione della terza (o 
seconda) posizione permetterà alla 
successiva propria mossa di guada¬ 
gnare un punto (o di impedire ciò, se 
a muovere è stato il Difensore). Più 
precisamente a questa casella verrà 
assegnato (routine 400) un punteg¬ 
gio scelto in base alle quattro even¬ 
tualità già accennate (routine 300). 


L’altra routine (500) si attiva invece 
quando la pedina si trova ad una 
estremità di h$: il punteggio verrà 
' quindi assegnato alle caselle centrali 
di h$. 

Infine la routine 600 completa la 
ricerca di caselle che posssono for¬ 
mare filetto, analizzando le quattro 
strisce di tre caselle ciascuna (agli 
angoli) sfuggite alla ricerca fatta tra 
la 110 e la 290. 

Siccome ogni casella è interessata a 
più direzioni (da un minimo di tre 
per quelle angolari ad un massimo di 
otto per quelle centrali), il lettore 
avrà già intuito che in una stessa 
casella si possono verificare anche 
tutte le quattro possibilità viste alle 
routine 300 e/o 400 e/o 500. Pertan¬ 
to le assegnazioni di punteggio sa¬ 
ranno sempre aggiuntive (algebrica¬ 
mente). 

A questo punto ad ogni casella 
della scacchiera corrisponde un 
punteggio, Spectrum deve quindi 
scoprire quella a punteggio maggio¬ 
re per piazzarvi la propria pedina. A 
tale compito provvedono le linee 
comprese fra la 800 e la 900. (Il letto¬ 
re interessato potrebbe inserire que¬ 
sta routine nei programmi di gioco 
su scacchiera che intende progetta¬ 
re). E’ una routine completa perchè 


prevede anche il caso di più punteggi 
massimi uguali (estrazione a sorte 
della posizione di uno di questi). 

Spectrum contro Spectrum 

Questa opzione può servire ini¬ 
zialmente per capire a fondo le rego¬ 
le del gioco e in seguito per migliora¬ 
re la propria strategia. La sua realiz¬ 
zazione è stata quanto mai semplice 
perchè si tratta di ridare la mossa 
allo stesso Spectrum dopo aver 
scambiato le pedine e i ruoli di Ag¬ 
gressore e Difensore. 

Scritte in movimento 
entro una finestra 

Per concludere, un cenno alla rou¬ 
tine che visualizza le istruzioni di 
gioco; qualche lettore potrebbe vo¬ 
lerla inserire in propri programmi, 
visto che è semplice e occupa poco 
spazio. In sostanza si tratta di muo¬ 
vere un testo verso l’alto entro una 
finestra di quattro righe sostituendo 
quindi ad ogni riga quella successi¬ 
va. A far la parte del leone è il quasi 
sempre dimenticato comando Re- 
store, utilizzato con un indirizzo va¬ 
riabile. Ricordo ai lettori più distrat¬ 
ti che Restore viene usato con Read 
quando si vuole iniziare l’escursione 
ai Data da uno qualunque di questi 
anziché dal primo in elenco nel pro¬ 
gramma. Inizialmente il Restore vie¬ 
ne indirizzato al primo dei Data (la 
prima riga di istruzioni) che verrà 
stampata con le successive tre (Read 
i$, linee 2590-2600). 

Appena è stampata la quarta riga 
viene incrementato di una linea il 
valore del puntatore j del Restore e 
la gestione passa ancora a Read per 
la stampa nella finestra della secon¬ 
da, terza, quarta, quinta riga di i- 
struzioni (che copriranno le righe 
stampate precedentemente). Tale 
semplice meccanismo si ripete fino 
alla stampa dell’ultima riga. 

Ed ora che le spiegazioni sono termi¬ 
nate auguriamo buon lavoro nella 
digitazione del programma, e buon 
divertimento nell’apprendere le 
strategie di gioco. ■ 
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COMMODORE VIC 20 - C 64 _ 

Appunti di utilità e Gosub con tasti funzione 

Alessandro Guida 


Questo mese ospitiamo i contributi di due lettori: Marco 
Giovenale di Castel Gandolfo (Roma) ci propone un ar¬ 
chivio di appunti per VIC 20. 

Andrea Caporin di Treviso, invece, una routine in linguag¬ 
gio macchina, che permette di effettuare dei salti a subrou¬ 
tine con la pressione dei tasti funzione del C 64. 

Grazie e complimenti a entrambi! 


Appunti di utilità 

Mi sono trovato spesso, programmando sul VIC, a 
cercare, scartabellando libri e riviste, il byte delle coordi¬ 
nate schermo, oppure quello del buffer della tastiera, o 
altri indirizzi utili. 

Per ovviare a questo inconveniente ho steso due righe di 
appunti e li ho appesi al muro. Passati alcuni giorni ho 
notato che erano incompleti: mancavano parecchie no- 
tiziole apprese col tempo sul mio Commodore e altre 
curiosità imparate in seguito, che non avevo segnato. 
Allora mi sono deciso a caricare un word processor e a 
fare un lavoretto preciso. Il risultato è ciò che state 
leggendo: una breve raccolta di notizie e piccole utility, 
che potrà essere consultata, anche se si presenta molto in 
disordine, da chi voglia aiutare i propri programmi 
BASIC a fare bella figura di fronte alle enormi “cabale” 
del linguaggio macchina. 

Non ho (volutamente) inserito ciò che riguarda i carat¬ 
teri e il suono, in quanto entrambi gli argomenti sono 
abbondantemente trattati nel manuale, nella “Guida di 
riferimento” e nel libro di R. Bonelli: “Alla scoperta del 
VIC 20”... 

Spero cosi di fare un gradito omaggio a quanti, come 
me, impazziscono per colpa di uno stupido byte fuori 
posto o passano pomeriggi interi alla ricerca di un vec¬ 
chio articolo sulla protezione dei programmi. 

Con Poke 650,128 si attiva la continuità dei tasti e Poke 
650, 0 la disattiva. Con Sys 64820 il computer si resetta. 
Poke 4098,16 riporta in memoria la prima riga di pro¬ 
gramma cancellata con un New; è bene ricordare, però, 
che questa riga può essere solo listata e mai, o quasi, 
eseguita senza rischiare di dover spegnere il VIC. 

Dopo aver fatto girare questo programma: 


10PRINT PEEK (653) 

20 RUN 

avrete 1 premendo Shift, 2 premendo Commodore, 3 
premendo i due tasti contemporaneamente e 4 con il 
Ctrl. Da ciò viene che: 

Wait 653,1 attende la pressione di SH. 

Wait 653,2 attende quella di CM. 

Wait 653,3 quella di SH. +CM. 
e Wait 653, 4 quella di CT. 

Un altro trucco è usare Wait per ttendere che sia premu¬ 
to un tasto; si può scrivere cioè: 

Poke 198,0: Wait 198,1 oppure: 

Pokel98,0:Waitl97,X, dove X è il codice del tasto da 
premere. 

Il numero dei caratteri presenti nel buffer della tastiera è 
contenuto in 198. Il buffer può memorizzare, al massi¬ 
mo, 10 caratteri e occupa i byte da 631 e 640. 

I byte 197 e 203 danno il valore del tasto premuto in uno 
speciale codice Commodore. 215 invece restituisce il 
valore in ASCII. 

La locazione 36864 di solito contiene 12, nella 36865 
invece ci dovrebbe essere un 38. Se si alterano questi 
valori si sposta lo schermo...: 

10 POKE 36864,5:POKE36865,100 
15 FORT = 1T01000:NEXT 
20 POKE36864,12 
25 FORT = 120 TO 38 STEP -1 
30 POKE 36865, T 
35 NEXT 

Cosi si cambiano le coordinate dello schermo. 

Provate poi a “pokare” nella locazione 36869 dei valori 
a caso, diverse volte, vedrete che succede! È il byte che 
controlla la mappa di caratteri del VIC... 

Ecco poi un’utile routine per far apparire lentamente le 
lettere: 

10 PRINT CHR$ (147):?“ <2 DOWN > < RIGHT > ”; 
15 READ T$ :POKE36878,15 
20 IF T$ “BASTA” THEN POKE36878,0:END 
30 FORI = 1 TO LEN (T$) 

40 PRINT MID$ (T$, I, 1); :POKE36877,200 
50 FORT = 1T050:NEXTT:POKE36877,0:NEXTI:? 
60 PRINT “< DOWN > < RIGHT >”; 

70 GOTO 15 

100 DATA “DOWN È UN CURSORE IN” 

110 DATA “BASSO.RIGHT VERSO DE-” 

120 DATA “STRA.” 

130 DATA “-” 

140 DATA “BASTA” 
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Listato 1 

. Sorgente commentato della routine. 

ONtEYSPC... • 





LINE* LOC CODE 

LINE 



oeeei 

0060 



ON KEY GOSUB 


06002: 

0060 


; 



aeees 

0660 


, BY ANOREA CAP0RIN 


00004 

l-wy>r. 


; 



00065 

Q00Q 


<■$0600 


60066 

C00O 

H9 38 


L08 «ONKEY 

MODIFICA IL VETTORE 

eeee;* 

C002 

80 28 03 


STR $0328 

OELLB ROUTINE 01 STOP 

00008 

CO05 

R9 C0 


LOR #>0NKEY 


0000? 

C007 

80 29 03 


SI8 *8329 


00010 

C06R 

R? 00 


LOR i$06 

RZZER8 LR L0C8ZI0NE 

ooen 

cooc 

85 F6 


STR 9FB 

OEL NUMERO 01 TRST1 ATTIVATI 

000*2 

C06E 

8* 


TRY 


60013 

C00F 

20 79 00 

RIT 

JSR *0079 

PRELEV8 L'RTTURlE BYTE OEL TESTO 

08014 

C012 

B0 12 


8CS rlOOEC 

SE NON E 0ECI88LE SRLTR 

O0O15 

CO 14 

E6 FB 

SRL 

INC *FB 

INCREUENTR 01 UNO IL NUMERO DI T8STI 8TTIVRII 

06016 

C016 

20 88 89 


J$* $R96B 

LEGGE UH INTERO 

06017 

C019 

A5 14 


LOR *14 

08L TESTO 

00018 

C01B 

99 34 03 


STR $6334.7 

E LO OEPOSITR 

00019 

C01E 

R5 15 


l08 *15 


OOviO 

0020 

99 38 Ó3 


STR 403.-3. ( 


00021 

C023 

08 


INY 


00022 

C024 

00 E9 


BNE F'IT 


06023 

C026 

C9 2C 

mooec 

CMP »*2C .SE IL CRRRTTERE SEGUENTE NON E' 

00024 

C028 

00 05 


BNE FINE 

UN8 VIRGOLO TORNII RL BRSIC 

06025 

COin 

20 73 0O 


JSR *0073 

ALTRIMENTI LEGGE UN NUOVO CRRRTTERE 

00026 

C02O 

90 E5 


BCC SRL 

SE 0ECII1HLE RIPETE 

OO027 

C02F 

60 

FINE 

PTS 


00023 

C03O 

H5 05 

ONKE i 

LOR $C5 


0002? 

C632 

C9 40 


C.1P «$4d 

SE E PREMO IO UN Ì8ST0 

000-0 

C034 

00 05 


Btit CONT 

VA AL SUCCESSIVO TEST 

O0C31 

0036 

85 K 


STR *rC 

ALTRIMENTI SRLTR 

00032 

C038 

4C E0 F6 

STOP 

JHP $F6£0 

ALLA NORMALE ROUtlie 01 STOP 

000-3 

0036 

RE 80 02 

CONT 

LO.. »628l> 

SE NON E PREMUTO 

00034 

C03t 

F0 FB 


BEO STOP 

COhTEMP. LO SHirT OPPURE 

06035 

0040 

C5 FC 


CMP 9FC 

E LO STESSO TASTO OEL PRECEDENTE 

00036 

0042 

F6 F4 


BEO STOP 

TEST TERMINA 

60037 

06*4 

85 FC 


STR »FC 


06023 

0046 

R6 FB 


LOX *FB 

NUMERO 01 TRSTI FUNZ. ATTIVATI 

00039 

0048 

00 75 ce 

LOOP 

CMP C00-1.X 

SE E' UH TASTO 

OO04U 

C04B 

F0 65 


BEO ENOL 

FUNZ. ATTIVATO PROSEGUE 

06041 

0040 

Cfl 


OEX 


00042 

C04E 

08 E6 


BNE LOOP 


00043 

0056 

F0 E6 


BEO STOP 

ALTRIMENTI TERMINA 

00044 

ces2 

80 33 03 

ENOL 

LOR $0334-1.X 

PRELEVA IL NUMERO 

00045 

0855 

85 14 


STR $14 

01 LINEA RELATIVO 

00046 

C857 

eo 37 03 


LOR $0338-t.X 

AL TASTO PREMUTO E 

OÓ047 

C65R 

85 15 


STR «15 

LO IMMETTE IN *14 E «15 

OO040 

cose 

R9 03 


lDR ««03 

PARTE OELLA ROUTINE 

96049 

C05E 

20 FB R3 


JSR $R3FB 

GOSUB OELL' INTERPRETE 

00650 

0061 

85 78 


LOR 97B 

BASIC CHE 

00051 

0063 

48 

• 

PHR 

MEMORIZZA NELLO STACK 

00652 

0064 

R5 7fì 


LOR «7R 

L'ATTUALE CARATTERE 

00653 

0066 

48 


PHR 

OEL TESTO BASIC 

00054 

C067 

85 38 


LOR I3R 

IL CORRENTE 

00055 

0069 

48 


PHR 

NUMERO 01 RIGA 

00056 

C06R 

85 Ì9 


LOR «3? 


06657 

C06C 

48 


PHR 


00058 

0060 

*9 80 


LOR *$80 

c IL CODICE TOKEN 

06059 

C66F 

46 


PHR 

DELL ISTRUZIONE GOSUB 

00860 

0070 

20 R3 R8 


JSP «R8R3 

QUINDI SALTA ALLA ROUTINE GOTO 

06661 

0073 

4C 8£ 87 


JMP $R7n£ 

.EO ESEGUE i-fl NUOVA LINEA 

■ .Art/-, 

Uwtt 

067t> 

84 

eoo 

.BYT 4.5.o.3 

.CODILE DEI OUAURG T. FUNZ. 

00662 

C6?7 

65 




06062 

co/a 

06 




06062 

C 079 

83 




66063 

O07R 


.END 


• 

EPRORS 

» 00660 




SYMBOL 

TfiBLE 





SYMBOL'VHLuE 





eoo 

coro C0NT 

C838 

ENOL • C052 

FINE C02F 

LOOP 

L048 NODEC 

C026 

UNKEY C03O 

RIT CwOF 

SRL 

C014 STOP 

C0j8 
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Appunti di utilità 
e Gosub con tasti 
_funzione 


Si possono mettere quante Data si vogliono, l’importan¬ 
te è ricordare, quando non ne servono altre, di battere: 

DATA “BASTA” 

come nella riga 140. 

Vi rammento come cambiare l’altezza dei caratteri: 

PRINT CHR$ (14)...maiuscoli e minuscoli; 

PRINT CHR$ (142)..solo maiuscoli; 

PRINT CHR$ (8)....per bloccarli; 

PRINT CHR$ (9)....per riattivarli. 

Con Poke 808,100 potrete proteggere un programma da 
qualsiasi tentativo di blocco. Attenzione, però, il listato 
sarà illeggibile anche per voi, a meno che ristabiliate il 
valore consueto con Poke 808,...inserite voi il numero. 
Per un’ulteriore protezione potete digitare Poke 788,194 
(blocca il tasto Stop) e/o Poke 37150,3 (blocca il tasto 
Restore). 

Per far impazzire il computer si procede nel seguente 
modo, almeno nella maggior parte dei casi. 

1- Si spegne il VIC e lo si riaccende. 

2- Si digita Poke 4098,16. 

3- Si dà il List...già è iniziato lo squilibrio mentale. 

4- Si dà il Run e si ottiene cosi un messaggio di errore. 

5- Si cancella la linea che il VIC ci indica come sbagliata. 

Esempio: 

Voi digitate Run 
e il VIC risponde con: 

7SYNTAX 
ERROR IN 56. 

Allora battete 56 e premete Return... 

Il VIC darà chiari segni di instabilità psicofisica. 

6- Spegnere il computer è l’unico modo per riportare 
tutto alla normalità. 


100 PRINT “POKE” J “,” 0:PRINT 
110 GOTO40 

Spesso occorre molto tempo per un “ impazzimento tota¬ 
le ”, ma si può essere certi che arriverà! 

Non volendo perder tempo, si può scrivere: 

10 FORI = 0TO255 
20 POKEI,255 ★ RND (1) 

30 NEXT 
40 RUN 

Oppure: 

5 FORT = 1TO500 

10 PRINTCHRS (5);C = INT (RND(l) ★ 94) + 33 

20 PRINTCHRS (C); :NEXT 

30 POKE 36879,8 

40 POKE 36869,255 

50 POKE 36878,15 

60 FORT = 12 TO 60 

70 POKE 36877,RND (1) ★ 255 

80 POKE 36874, RND (1) ★ 255 

90 POKE 36864,T:NEXT 

100 POKE808,100:POKE773,100 

110 FORT = 0TO255:POKE T,0:NEXT 

120 RUN30 

Un’istruzione anti-tutto è la seguente: 

POKE 773,100 

oppure: 

POKE 773,198 

oppure: 

POKE 773,196 

oppure: 

POKE 773,255 


A volte questo procedimento non 
funziona: dipende dall’umore del 
VIC. Si può allora adottare il Siste¬ 
ma Giovenale, adatto a far impazzi¬ 
re qualunque computer funzionante 
in BASIC (credo), con le dovute mo¬ 
difiche. Il Metodo G. consiste nel 
battere questo programma: 

10 POKE36879,l 10 

20 PRINT CHR$ (147); CHR$ 

(142) 

30 PRINT CHR$ (8); CHR$ (5) 

40 L = 255 ★ RND (1) 

50 D = INT (65535 ★ RND (1)) 

60 J = INT (65535 ★ RND (1)) 

70 POKE D,L 

80 PRINT “POKE” D 

L:PRINT 

90 POKE J,0 


Listato 2. Il programma caricatore BASIC della routine. 


10 REM* ESEMPIO DIMOSTRATIVO * 

20 REM*DELL‘ISTRUZIONE ON KEY GOSUB* 

30 SYS49152,50,70 
40 GOTO40 

30 PRINTCHR*<147>- IL SALTO A QUESTA LINEA E' ABILITATO" 

60 PRIbfT-DAL TASTO"CHR*<18)" ’F2 1 <SH IFT ♦FI)"* RETURN 

70 PRINTCHR*<145)"OAL TASTO"CHR*<18>" F4' <SH1FT+F3>":RETURN 

READY. 


Listato 3. Un esempio dimostrativo. 

3 REM CARICATORE BASIC 
10 PRINTCHR*<147)“ON KEY GOSUB" 

20 FOR1*49I52T049273 t READA :X*X >A s POKEI, A t NEXT 
30 IFX< >13440THEFFRINT"ERRORE NEI DATA !"iEND 

40 OATA169,48,141,40,3,169,192,141,41,3,169,0,133,231,168,32,121,0,176,18,230 
30 DATA251,32,107,169,163,20,153,32,3,163,21,153,56,3,200,208,233,201,44,208,3 
60 0ATA32,113,0,144,229,96,163,197,201,64,208,5,133,232,76,237,246,174,141,2,240 
70 0ATA248,197,232,240,244,133,232,166,25l,221,117,192,240,5,202,208,248,240,230 
80 OATA189,31,3,133,20,189,35,3,133.21,169,3,32,231,163,163,123,72,163,122,72 
90 OATA165,38,72,163,37,72,169,141,72,32,163,168,76,174,167,4,5,6,3 
READY. 
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Digitando Poke 37148,X si blocca il registratore, se X è 
minore di 252. 

La locazione 36866, cambiata, fa diminuire il numero 
delle colonne dello schermo; la 36867 controlla le righe. 
Come è anche spiegato nel manuale, ogni istruzione del 
BASIC si ottiene, volendo abbreviarla, con la prima 
lettera + la seconda shiftata, tranne alcune eccezioni. 
Per esempio Load = L -f (Shift + O). 

Le eccezioni sono: 


• CLOSE.CL + (SHIFT + O). 

• GOSUB.GO + (SHIFT + S). 

• INPUT.inesistente. 

• PRINT.?. 

• RESTORE.RE + (SHIFT + S). 

• RETURN.RE + (SHIFT + T). 

• STEP.ST 4- (SHIFT + E). 

• LEFTS.LE + (SHIFT + F). 

• STR$.ST + (SHIFT + R). 


Volendo simulare l’istruzione Print At X,Y sul ristretto 
BASIC del VIC, si può procedere come segue (Personal 
Software, Luglio-Agosto ’83, pag. 93): 

POKE 211,X: POKE 214,Y: SYS 58759 

L'indirizzo 204 consente il controllo del lampeggio cur¬ 
sore. 

Se Peek (204) uguale 0, il cursore lampeggia; se Peek 
(204) uguale 1, il cursore non appare. Un esempio può 
essere: 

10 GETA$:IFA$ = “ ” THENPOKE204,0:GOTO10 
20 PRINTAS; 

30 A = A + 1 : IFA = 5 THEN PRINT:PRINT:A = 0 
40 GOTO 10 


Gosub con tasti funzione 

Tra le numerosissime istruzioni presenti negli inter¬ 
preti BASIC dell’ultima generazione spicca senz’altro la 
possibilità di saltare a una determinata linea di pro¬ 
gramma al verificarsi di certi eventi, tra i quali la pressio¬ 
ne di un tasto funzione. 

Normalmente il salto viene effettuato sfruttando l’inter- 
rupt del microprocessore, cioè sessanta volte al secondo 
(nel caso del C 64) la routine di interrupt controlla se è 
premuto un tasto, in precedenza attribuito a un certo 
numero di linea. In caso affermativo si salva l’indirizzo 
di ritorno e l’esecuzione prosegue dal nuovo numero di 
linea, per poi, alla presenza di un Return, tornare al 
punto in cui il programma era stato interrotto. Proprio 
come una normale chiamata di subroutine. 

Questa possibilità ovviamente non è presente nello scar¬ 
no BASIC del C 64, però si può simulare mediante una 
breve routine in linguaggio macchina. 


Per prima cosa, da come si può osservare dal codice 
sorgente della routine, non ho utilizzato la possibilità di 
modificare l'IRQ, che dava dei problemi dovuti essen¬ 
zialmente alla brusca interruzione del programma BA¬ 
SIC in esecuzione, ma sfruttando piuttosto la chiamata 
della routine di Stop, la quale controlla se questo tasto è 
stato premuto. Questa chiamata viene effettuata prima 
dell’esecuzione di ogni istruzione BASIC. 

Il listato 1 sorgente è completamente commentato. La 
routine nella parte iniziale, dopo il vettore di Stop, cerca 
i numeri di linea separati da una virgola, a ognuno di 
questi assegna un tasto funzione, partendo dal primo in 
alto assieme allo Shift, quindi torna al BASIC. 

Da questo momento i tasti funzione interessati sono 
attivati per tutta l’esecuzione del programma, ad ecce¬ 
zione di quando il programma è in attesa di un Input, in 
quanto non viene sentito il tasto di Stop. 

La sintassi del comando è la seguente: 

SYS49152,n 1 ,n2,n3,n4 

dove nl...n4 sono i numeri di linea da attribuire ai tasti 
funzione, a partire dal primo in alto, doppiati al tasto di 
Shift. I salti che si possono effettuare vanno da un 
minimo di 1 a un massimo di 4. 

La routine può essere facilmente rilocata in altre zone di 
memoria, cambiando i valori contenuti in $C001- 
SC006, e $C049-$C04A. 

Per utilizzare il programma occorre ricopiare il listato 2 
e lanciarlo in esecuzione: da questo punto in poi è possi¬ 
bile richiamare Sys 49152 secondo la sintassi preceden¬ 
te. A titolo di esempio di utilizzo è riportato il program¬ 
ma dimostrativo del listato 3. 


SINCLAIR ZX SPECTRUM_ 

Come (tentare di) recuperare 
programmi BASIC 

Marcello Spero 

Questo mese presentiamo un interessante contributo di 
Luciano Andrei, abitante a Lastra a Signa ( FI) - / due 
programmi proposti, Lazzaro 1 e Lazzaro 2, permettono: 
il primo di recuperare i programmi in BASIC illeggibili da 
un certo punto in poi (senza coda) e il secondo di salvare 
(/uelli senza header. Entrambi i programmi sono scritti in 
linguaggio macchina. 

Lazzaro 1 

Tutti sanno che se sul nastro c’è un errore, il Load si 
interrompe e dando il List da un certo punto in poi c’è 
solo caos: appare cioè una linea senza senso, mentre 
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prima tutto è normale. Provando a cancellare tale linea, 
numero di linea ed Enter, per poter utilizzare la parte 
corretta, il più delle volte cade il sistema e se va bene il 
problema sorge per la linea successiva. A volte capita di 
perdere una sola linea e di dover ridigitare tutto il pro¬ 
gramma, con notevole perdita di tempo. Il mio pro¬ 
gramma risolve il problema, cancellando tutto quello 
che non va. Il nome è dovuto proprio a questo, infatti 
“lazzarizza” i programmi, cioè li resuscita. Il program¬ 
ma (figura 1) va caricato nel buffer della stampante con 
Load “Lazzaro 1” Code 23296, poi si carica il program¬ 
ma sciupato ed appena appare il segnale di errore si 
ferma il registratore, si dà il List ed allo “scroll”? si 


Figura 1. 

I codici del programma Lazzaro 1: 

vanno 

caricati e 

memorizzati con 

un semplice programma 

caricatore BASIC, del tipo di quelli più volte pubblicati 

in questa rubrica. 



23296 

42 

23344 

35 

23297 

93 

23345 

54 

23298 

92 

23346 

58 

23299 

62 

23347 

35 

23300 

58 

23348 

54 

23301 

190 

23349 

234 

23302 

32 

23350 

201 

23303 

10 

23351 

35 

23304 

62 

23352 

35 

23305 

14 

23353 

35 

23306 

35 

23354 

78 

23307 

190 

23355 

35 

23308 

40 

23356 

70 

23309 

41 

23357 

42 

23310 

61 

23358 

83 

2331 1 

190 

23359 

92 

2331 2 

32 

23360 

86 

2331 3 

246 

23361 

35 

2331 4 

62 

23362 

94 

2331 5 

2 

23363 

35 

23316 

205 

23364 

235 

23317 

1 

23365 

175 

2331 8 

22 

23366 

237 

2331 9 

6 

23367 

66 

23320 

6 

23368 

229 

23321 

33 

23369 

235 

23322 

31 

23370 

94 

23323 

21 

23371 

35 

23324 

126 

23372 

86 

23325 

230 

23373 

35 

23326 

127 

23374 

25 

23327 

35 

23375 

209 

23328 

215 

23376 

122 

23329 

16 

23377 

179 

23330 

249 

23378 

32 

23331 

42 

23379 

236 

23332 

93 

23380 

34 

23333 

92 

23381 

75 

23334 

35 

23382 

92 

23335 

54 

23383 

24 

23336 

234 

23384 

209 

23337 

201 

23385 

0 

23338 

42 

23386 

0 

23339 

93 

23387 

0 

23340 

92 

23388 

0 

23341 

35 

23389 

0 

23342 

54 

23390 

0 



23343 

253 


Figura 2. Assembly di Lazzaro I. 

10 ; LAZZARO 
20 

1 

30 ; ANDREI 
40 

LUCIANO 

50 


60 CHADD 

EQU 23645 

70 VAR 

EQU 23627 

80 PROG 

90 

EQU 23635 

100 

LD HL,(CHADD) 

no 

LD A,":" 

1 20 

CP (HL) 

1 30 

JR NZ,ERRORE 

140 Al 

LD A,14 

1 50 

INC HL 

1 60 

CP (HL) 

1 70 

JR Z,A3 

1 80 

DEC A 

190 

CP (HL) 

200 

JR NZ,Al 

210 ERRORE 

LD A, 2 

220 

CALL #1601 

230 

LD B,6 

240 

LD HL,#151F 

250 A2 

LD A,(HL) 

260 

AND 127 

270 

INC HL 

280 

RST 16 

290 

DJNZ A2 

300 

LD HL,(CHADD) 

310 

INC HL 

320 

LD (HL) ,#EA ; REM 

330 

RET 

340 A4 

LD HL,(CHADD) 

350 

INC HL 

360 

LD (HL),#FD ;CLEAR 

370 

INC HL 

380 

LD (HL),":" 

390 

INC HL 

400 

LD (HL) ,#EA ; REM 

41 0 

RET 


risponde con Enter fino a quando appare la linea sciupa¬ 
ta, dopodiché si risponde con Break. A questo punto si 
digita, senza numero di linea, Randomize Usr 23296 : 
Print nn dove nn è il numero dell’ultima linea corretta, 
ed il gioco è fatto. Adesso il programma può essere 
completato e tutto è a posto. 

Il programma è rilocabile e può anche servire per elimi¬ 
nare un programma in BASIC da una certa linea in poi. 
Vediamone adesso il funzionamento: il programma cer¬ 
ca l’indirizzo dopo l’ultima linea corretta e lo pone in 
Vars (Vars indica al sistema operativo dove inizia la 
zona delle variabili), dopo di che modifica la linea che lo 
ha chiamato (Randomize Usr 23296 : Print nn) in Ran¬ 
domize Usr 23296 : Clear : Rem..., in modo che la 
successiva istruzione che il computer trova è un Clear, 
per cui cancella tutte le variabili ed il nonsenso che ci 
abbiamo messo dentro. Un modo di vedere il cambia¬ 
mento è il seguente programmino: 

10 RANDOMIZE USR 23296 : PRINT 20 
20 REM 

30 REM e poi RUN. 
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E’ nata ELETTRONICA HOBBY 
la rivista 

del bricolage elettronico 

Le riviste Jackson salutano una nuova arrivata. 
A partire dal prossimo mese di Maggio non vi 
sarà più ELEKTOR, bensì ELETTRONICA HpB- 
BY che uscirà mensilmente ed interesserà, co¬ 
me traspare dalla testata, tutti gli appassionati 
del "fai da te" elettronico. 

E i seguaci di ELEKTOR? Dovranno fare a meno 
della loro fedele rivista? Sicuramente no. La 
nuova EH, infatti, comprenderà i progetti più 
interessanti di ELEKTOR i quali verranno prece¬ 
dentemente esaminati da esperti tecnici e poi 
presentati con una nuova veste descrittiva e gra¬ 
fica corredata di numerose fotografie a colori. 
Sia i progetti ricavati dall’europea ELEKTOR, sia 
quelli realizzati nei nostri laboratori o dai nostri 
collaboratori, saranno attentamente cablati e 
severamente collaudati da una ditta specializza¬ 
ta. Sarà quest’ultima, inoltre, a garantire la di¬ 
stribuzione dei circuiti stampati, dei componenti 
più complessi da reperire sul mercato e soprat¬ 
tutto dei kit. Per rendere più completo e veloce 
questo delicato servizio, è stata creata una rete 
di distributori sparsi un po’ per tutta Italia, in 
grado di far fronte anche alle richieste inoltrate 
per corrispondenza. 

Il contenuto di ELETTRONICA HOBBY, a diffe¬ 
renza di quello presentato da numerose altre 
riviste che negli ultimi tempi si sono specializza¬ 
te quasi esclusivamente sui computer, è vario 
ed abbraccia quante più applicazioni possibili. 
Ciò non significa però che EH si disinteressi 
completamente di questi prodotti. Due articoli su 
dieci saranno infatti dedicati, in ogni numero, ai 
computer; essi saranno scelti perciò con estre¬ 
ma attenzione, cercando di pubblicare quanto di 
meglio e più interessante si possa trovare in 
circolazione. Per il resto delle realizzazioni, 
nessuna preferenza: bassa frequenza, strumen¬ 
tazione da laboratorio, accessori per auto, HI-FI, 
telecomunicazioni, circuiti per strumenti musi¬ 
cali, apparati medicali e applicazioni domesti¬ 
che si alterneranno periodicamente afianco del¬ 
le rubriche fisse dedicate all’attualità, al merca¬ 
to e all’applicazione di un chip di nuova produ¬ 
zione. 

La semplicità di alcuni circuiti è immediatamen¬ 
te evidente; la complessità di altri richiede inve¬ 
ce una certa esperienza. 

Neofiti o esperti che siate, non perdete dunque 
questa favolosa occasione, abbonatevi al più 
presto a ELETTRONICA HOBBY o acquistatela 
presso la vostra edicola di fiducia. 


Seguito listalo Assembly Lazzaro 1. 

420 A3 

INC HL 

430 

INC HL 

440 

INC HL 

450 

LD C,(HL) 

460 

INC HL 

470 

LD B,(HL) 

480 

LD HL,(PROG) 

490 A5 

LD D,(HL) 

500 

INC HL 

510 

LD E,(HL) 

520 

INC HL 

530 

EX DE,HL 

540 

XOR A 

550 

SBC HL,BC 

560 

PUSH HL 

570 

EX DE,HL 

580 

LD E,(HL) 

590 

INC HL 

600 

LD D,(HL) 

610 

INC HL 

620 

ADD HL,DE 

630 

POP DE 

640 

LD A,D 

650 

OR E 

660 

JR NZ,A5 

670 

LD (VAR),HL 

680 

JR A4 

690 


700 ; 

END 

0 



Lazzaro 2 

Se si sciupa l’header di un programma in BASIC, è 
praticamente impossibile caricarlo e farlo funzionare o 
ricostruirci l’header. 

Lazzaro 2 invece può permetterci di farne una copia 
corretta con l’header. Il programma (figura 2), senza 
header viene caricato come un Code, ma messo nella 
zona riservata al BASIC (da Prog in poi) e poi, supposto 
che sia in BASIC, aggiusta i puntatori del sistema opera¬ 
tivo (Vars inizio variabili ed Eline fine variabili), di¬ 
strugge le variabili (vedremo dopo come evitarlo) e resti¬ 
tuisce il controllo al sistema: a questo punto basta fare 
un Save... ed il gioco è fatto. Il programma va caricato 
nel buffer della stampante (Load Code 23296). Se il 
nastro è rumoroso, o di seguito c’è registrato un altro 
programma, il Load ottenuto con Lazzaro 2 continua, 
ed è bene spegnere il registratore appena si riconosce il 
fischio di inizio blocco. Se il nastro è nuovo, non ci sono 
problemi, comunque, prima di effettuare il Save... è 
bene dare un Clear e poi con un List controllare la 
presenza di tutte le linee. Se però la parte più importante 
non è il programma BASIC, ma le variabili, oppure si 
vuole resuscitare un blocco Data, bisogna provare come 
segue, anche se il risultato non sempre è assicurato. 

Fare Poke 23378,0 : Poke 23379,0 e poi Enter, regola- 
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re il volume per tentativi, in modo che il Load si fermi 
alla fine del programma, e poi attivare Lazzaro 2 nor¬ 
malmente, cioè Randomize Usr 23296 seguito da Enter 
e far partire il registratore. Senza le variabili il funziona¬ 
mento è assicurato, se poi si vogliono anche quelle, a 
volte va male!. 

Veniamo adesso al funzionamento. La struttura di una 
linea in BASIC è mostrata nel 24° capitolo pagina 122 
del manuale originale; come si vede, ci sono due byte per 
il numero di linea, due per la lunghezza della linea più 1, 
il corpo della linea e per finire un Enter (13). Supposto 
allora che il programma sia in BASIC, il terzo e quarto 
byte, sommati al valore attuale (inizio corpo linea), 
danno un indirizzo che deve contenere 13, altrimenti 
siamo fuori della zona BASIC e si termina. Se invece c’è 
il numero 13, ci sono buone probabilità di essere su di 


Figura 3. 

I codici di Lazzaro 2. 


23296 

193 

23344 

6 

23297 

49 

23345 

35 

23298 

254 

23346 

126 

23299 

91 

23347 

43 

23300 

197 

23348 

187 

23301 

62 

23349 

56 

23302 

255 

23350 

18 

23303 

221 

23351 

221 

23304 

42 

23352 

229 

23305 

83 

23353 

209 

23306 

92 

23354 

1 24 

23307 

33 

23355 

186 

23308 

64 

23356 

40 

23309 

156 

23357 

4 

23310 

55 

23358 

56 

2331 1 

205 

23359 

217 

23312 

86 

23360 

24 

23313 

5 

23361 

6 

23314 

221 

23362 

125 

23315 

34 

23363 

187 

23316 

89 

23364 

56 

23317 

92 

23365 

21 1 

2331 8 

42 

23366 

40 

23319 

83 

23367 

7 

23320 

92 

23368 

43 

23321 

86 

23369 

175 

23322 

35 

23370 

237 

23323 

94 

23371 

66 

23324 

35 

23372 

43 

23325 

78 

23373 

43 

23326 

35 

23374 

43 

23327 

70 

23375 

34 

23328 

9 

23376 

75 

23329 

126 

23377 

92 

23330 

254 

23378 

54 

23331 

13 

23379 

128 

23332 

32 

23380 

207 

23333 

35 

23381 

255 

23334 

35 

23382 

92 

23335 

126 

23383 

24 

23336 

254 

23384 

209 

23337 

40 

23385 

0 

23338 

48 

23386 

0 

23339 

35 

23387 

0 

23340 

186 

23388 

0 

23341 

56 

23389 

0 

23342 

32 

23390 

0 

23343 

32 




Figura 4. Assembly di Lazzaro 2. 

10 

20 ; LAZZARO 
30 

2 

40 ; ANDREI 
50 

60 

LUCIANO 

70 PROG 

EQU 23635 

80 ELINE 

EQU 23641 

90 VAR 

1 00 

EQU 23627 

110 

1 20 

ENT $ 

1 30 

POP BC 

1 40 

LD SP,23550 

1 50 

PUSH BC 

160 

LD A,255 

1 70 

LD IX,(PROG) 

1 80 

LD HL,40000 

190 

SCF 

200 

CALL 1366 

210 

220 

LD (ELINE),IX 

230 

LD HL,(PROG) 

240 ANCORA 

LD D,(HL) 

250 

INC HL 

260 

LD E,(HL) 

270 

INC HL 

280 

LD C,(HL) 

290 

INC HL 

300 

LD B,(HL) 

310 

ADD HL,BC 

320 

LD A,(HL) 

330 

CP 13 

340 

JR NZ,FINEO 

350 

INC HL 

360 

LD A,(HL) 

370 

CP 40 

380 

JR NC,FINEl 

390 

CP D 

400 

JR C,FINEl 

410 

JR NZ,POI 

420 

INC HL 

430 

LD A,(HL) 

440 

DEC HL 

450 

CP E 

460 

JR C,FINEO 

470 POI 

PUSH IX 

480 

POP DE 

490 

LD A,H 

500 

CP D 

510 

JR Z,Al 

520 

JR C,ANCORA 

530 

JR FINEA 

540 Al 

LD A,L 

550 

CP E 

560 

JR C,ANCORA 

570 

JR Z,FINEl 

580 FINEA 

DEC HL 

590 FINEO 

XOR A 

600 

SBC HL,BC 

61 0 

DEC HL 

620 

DEC HL 

630 

DEC HL 
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Seguito figura 4. 

2372 (VAR),HL 


una linea BASIC, si controlla allora se il numero di 
questa ipotetica linea è maggiore di quello della prece¬ 
dente, se non lo è: allora come ultima linea valida per il 

680 

690 

700 ; END 

o 

JR A4 

BASIC viene presa la precedente. Altrimenti il gioco 
prosegue fino a che si verifica un “errore” dei precedenti 
o siamo oltre la zona caricata da nastro. 

640 FINEl 

LD (VAR) f HL 

Alla fine vengono aggiustati i puntatori e restituito il 

650 

LD (HL),128 

controllo. 

660 FINE2 

RST 8 

Siccome Lazzaro 2 sposta lo Stack Pointer nel buffer 

670 

680 

690 

700 ; END 

DEFB 255 

della stampante, è consigliabile, prima di passare ad un 
altro tipo di lavoro, dare Randomize Usr 0 per resettare 
completamente il computer, perché a volte si possono 
verificare crash del sistema operativo. 


SHARP MZ-700 _ 

Struttura interna delle istruzioni BASIC 


Martino Sangiorgio 


Vi siete mai chiesti come lo Sharp MZ-700 compatti 
in memoria le istruzioni BASIC? No? Eppure può essere 
non solo interessante, ma anche utile, come vedremo più 
avanti. L’analisi che condurremo risulta, nell’ MZ-700, 
semplificata dalla presenza di un programma Monitor 
di sistema, ma soprattutto dalla presenza, nello stesso 
interprete BASIC, di un programma Monitor ancora 
più sofisticato del primo. Il programma BASIC che 
analizzeremo è quello visibile nella figura 1. 

Carichiamo quindi il BASIC da cassetta e iniziamo a 
digitare la prima istruzione: 

10PRINT “C” 

Per vedere ora come tale istruzione è stata registrata in 
memoria dobbiamo passare il controllo al Monitor del 
BASIC. Per fare ciò digitiamo il comando Bye e premia¬ 
mo il tasto Cr. Ora che siamo in ambiente Monitor 
possiamo digitare il comando: 

D6BC0 

che ci permette di visualizzare il contenuto di un blocco 
di memoria, partendo dall’indirizzo 6BC0h. L’indirizzo 
di inizio del programma BASIC (trovato dopo vari 
tentativi) è 6BCFh. Quello che si nota da questo indiriz¬ 
zo in poi è visibile nella figura 2. In essa si notano due 
valori esadecimali OAh, cioè lOd. Uno dei due potrebbe 
essere il numero di linea, ma l’altro? Tra gli altri valori 
numerici riconosciamo il 22h, codice ASCII del doppio 
apice, e il 16h, codice ASCII del caratttere C. Quindi gli 
altri due (8Fh e 20h) dovrebbero individuare la codifica 
dell’istruzione Print. Ma la nostra analisi è solo all’ini¬ 
zio. 


Ritorniamo in ambiente BASIC digitando il comando 
Monitor R (seguito da CR) e digitiamo l’istruzione 
successiva: 

20 INPUT “MESSAGGIO”;A 

Ritorniamo di nuovo al Monitor col comando Bye e 
vediamo (sempre col comando D6BC0) cosa c’è attual¬ 
mente in memoria. 

Vedremo l’insieme dei valori esadecimali visibili in 
figura 3. 

In essi riconosciamo quelli già visti prima. Il primo 
valore della seconda istruzione inizia alfindirizzo 
6BD9h. Contando i byte della prima istruzione ci accor¬ 
giamo che essi sono effettivamente 10: quindi uno dei 
due OAh iniziali rappresenta la lunghezza dell’istruzio¬ 
ne. Purtroppo, anche nella seconda istruzione abbiamo 
due valori uguali (14h), sia perii numero di linea che per 
la lunghezza dell’istruzione. Vedremo quindi successi¬ 
vamente di scoprire quale dei due determina la lunghez¬ 
za. Nella seconda istruzione, al quinto e sesto byte, 
notiamo un 91 h e un 20h, che sono in corrispondenza ai 
valori 8Fh e 20h della prima. Poiché ora l’istruzione è 
diversa, ne deduciamo che 8Fh dovrebbe essere la codi¬ 
fica della Print e 91 h la codifica della Input, mentre il 
20h, che è comune alle due istruzioni, deve avere un 
altro significato. Gli altri valori presenti nella seconda 
istruzione non sono altro che le codifiche ASCII di 
quello che abbiamo scritto dopo la Input. 

Ritorniamo di nuovo al BASIC, digitando R (seguito da 
Cr) e scriviamo la terza istruzione: 

30 IF A = 0 THEN GOTO 50 

Rapidamente (ormai abbiamo capito come si fa) scrivia¬ 
mo Bye e, appena nel Monitor, D6BC0. Vedremo ora i 
valori mostrati in figura 4. 

L’indirizzo di inizio della terza istruzione è il 6BEDh 
e, contando i byte dall’inizio della seconda istruzione (il 
primo 14h), notiamo che essi sono proprio 20 (infatti 
14h = 20d). Ora, dall’indirizzo 6BEDh, notiamo un 17h 
(= 23d) e un lEh (= 30d). Poiché 30 è proprio il 
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numero di riga, l'altro sarà necessariamente la lunghez¬ 
za dell'istruzione. Proseguendo, notiamo: un 93h, che 
dovrebbe corrispondere alla codifica della If; un 20h, 
che ancora non capiamo, ma che finora ha accompagna¬ 
to tutte le istruzioni; un 41 li, codice ASCII della variabi¬ 
le A; un F4h, che dovrebbe rappresentare il segno di 
uguale; un 15h, che non capiamo, ma che dovrebbe 
essere associato al numero seguente che è uno zero (ci 
sono cinque byte a zero). Proseguendo, notiamo: un 
20h, che non capiamo; (in gruppo formato da E2h e da 
20h, che dovrebbe essere la codifica di Then; un gruppo 
formato da 80h e da 20h, che dovrebbe essere la codifica 
di Goto; uno OBh, che non capiamo, e un 32h (= 50d), 
che è il numero di linea dopo il Goto. 

Ora il meccanismo comincia ad essere un po’ più chiaro. 
Digitiamo R (seguito da Cr) e, quando siamo nel BA¬ 
SIC, scriviamo le due ultime istruzioni: 

40 B = 3.1415 ★Af 2:PRINT “AREA = ”;B:GOTO 20 
50 END 

Di nuovo scriviamo Bye e, nel Monitor, D6BC0. La 
conformazione della memoria che ci interessa sarà u- 
guale a quella visibile in figura 5. 

L’istruzione 30 (la IO iniziava aH’indirizzo 6BEDh col 
valore 17h ( = 23d). Se questa è veramente la lunghezza 
dell'istruzione, dopo 23 byte dovremmo trovare l’inizio 
della successiva. Infatti, all’indirizzo 6C04h troviamo: il 
valore 2Ah (= 42d), lunghezza dell’istruzione con nu¬ 
mero di linea 40; un byte a zero; un valore 28h (= 40d), 
numero della linea; un altro byte a zero; il valore 42h 
(codice ASCII della B); il valore F4h, che dovrebbe 
rappresentare il segno di uguale, e il valore 15h, che 
dovrebbe far capire che quello che segue è un valore 
numerico. Poiché la costante numerica utilizzata 
(3,1415) è un numero reale, dovrebbe occupare 4 byte di 
memoria. Troviamo invece una serie di cinque byte: 

82 - 49 - 0E - 56 - 04 

Dopo qualche calcolo sommario abbandoniamo l’idea 
che si tratti della codifica di un numero in virgola mobi¬ 
le. Deve trattarsi di una particolare codifica Sharp. Ac¬ 
cantoniamo per il momento lo studio della costante 
reale e proseguiamo nella lettura della memoria. All’in¬ 
dirizzo seguente (60 Oh) troviamo: FCh, codifica del- 
’operatore ★; 41 h (codice ASCII della A); FDh, codifi¬ 
ca dell’operatore |; 15h, che è posto prima di un valore 
numerico, e un gruppo di cinque byte, di cui il primo ha 
valore 82h e gli altri quattro sono a zero. Questo gruppo 
dovrebbe essere la codifica della costante 2, che viene 
quindi considerata dal sistema come reale, non intera. 
3 roseguendo, troviamo: 3Ah (codice ASCII del caratte¬ 
re:); 8Fh, che è la codifica dell'istruzione Print; il valore 
20h, che accompagna sempre le istruzioni, e tutta una 
serie di valori, fino all’indirizzo 6C26h, che sono le 
codifiche ASCII di quello che avevamo scritto dopo 
Print. 


Figura 1. Listalo del programma BASIC da analiz¬ 
zare. 

10 PRINT "0" 

20 INPUT "MESSAGGIO";A 
30 IF A=0 THEN GOTO 50 

40 B-3.'415#AT2: p RINT "AREA = "JB:G0T0 2 
0 

50 END 

Figura 2. Dump della zona di memoria in cui è memo¬ 
rizzata la prima istruzione del programma BASIC. 

:6BCF=0A 00 0A 00 8F 20 22 16 /_8F 

•6BD7=22 00 00 00 00 00 00 00 /"__ 

Figura 3. Dump della zona di memoria in cui sono 
memorizzate te prime due istruzioni del programma. 

:6BCF=0A 00 0A 00 8F 20 22 16 /_8F 

:6BD7=22 00 14 00 14 00 91 20 /".91 

•6BDF--22 4D 45 53 53 41 47 47 /"MESSAGG 

■6BE7=49 4F 22 3B 41 00 00 00 /IO" ;A.., 

Figura 4. Dump della zona di memoria in cui sono 
memorizzate le prime tre istruzioni del programma. 

•6BCF=0A 00 0A 00 8F 20 22 16 /_8F 

:6BD7=22 00 14 00 14 00 91 20 /".9| 

'6BDF=22 40 45 53 53 41 47 47 /"MESSAGG 

:6BE7=49 4F 22 3B 41 00 17 00 /I0";A... 

:6BEF=1E 00 93 20 41 F4 15 00 /. . ' A F 4.. 

:6BF7=00 00 00 00 20 E2 20 80 /... „ E2 > 

:6BFF=20 0B 32 (30 00 00 00 00 / ,2. 


Figura 5. Dump della zona di memoria in cui è memo¬ 
rizzato l'intero programma BASIC. 


‘6BCF-0A 

00 

0A 

00 

8F 

20 

22 

16 

/ _8F 

:6BD7=22 

00 

14 

00 

14 

00 

91 

20 

/".91 

•6BDF=22 

4D 

45 

53 

53 

41 

47 

47 

/"MESSAGG 

:6BE7=49 

4F 

22 

3B 

41 

00 

17 

00 

/IO" ;a. .. 

:6BEF=1E 

00 

93 

20 

41 

F4 

15 

00 

/.. ‘ AF4. . 

:6BF7=00 

00 

00 

00 

20 

E2 

20 

80 

/. . . . E2 > 

:6BFF=20 

0B 

32 

00 

00 

2A 

00 

28 

/ .2. .*.( 

■6C07=00 

II 

42 

F4 

15 

82 

49 

0E 

56 

/.BF4.821. 

:6C.0F-'04 

FC 

41 

FD 

15 

82 

00 

00 

/. J-APD.82. 

:6C!7=00 

00 

3A 

8F 

20 

22 

41 

52 

/. . :8F "AR 

:6C1F=45 

4 1 • 

20 

3D 

20 

22 

3B 

42 

CD 

II 

<L 

UJ 

\ 

; 6C.27=3A 

80 

20 

0B 

14 

00 

00 

06 

/ • > . 

■6C.2F=00 

32 

00 

98 

00 

00 

00 

00 

/. 2.h _ 
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All’indirizzo 6C27h ritroviamo: il valore 3Ah (codice 
ASCII del carattere :); 80h, codifica dell’istruzione Go¬ 
to; il solito 20h; un valore OBh. che non comprendiamo, 
e infine il valore 14h (= 20d), che è il numero di linea 
associato al Goto. Se contiamo il numero di byte di 
quest’ultima istruzione, partendo dall’indirizzo 6C04h e 
comprendendo gli ultimi due byte a zero, vediamo che 
sono effettivamente 42. 

All'indirizzo 6C2Eh inizia poi l’ultima istruzione: dopo 
uno 06h (= 6d), lunghezza dell’istruzione, un byte a 
zero, un valore 32h (= 50d), numero di linea dell’istru¬ 
zione, e un altro byte a zero, troviamo il valore 98h, che è 
la codifica dell’istruzione End. 

L’analisi che abbiamo fin qui condotto ci ha permesso di 
conoscere un po’ meglio la struttura interna delle istru¬ 
zioni BASIC. È pur vero che molte sono ancora le 
informazioni incognite, ma lo scopo che ci eravamo 
proposti era di dare a tutti la chiave per poter effettuare, 
in proprio, successive analisi più approfondite. 

Abbiamo anche visto che non esiste una struttura 
valida per tutte le istruzioni, però qualche informazione 
è effettivamente comune a tutte le strutture viste. Tali 
informazioni possono essere sintetizzate nelle due strut¬ 
ture visibili in figura 6. Finora il numero di linea dell’i¬ 
struzione BASIC era contenuto entro il valore 255. Per 
valori superiori (e fino a 65.535) servono due byte. Il 
valore più basso si ha nel primo dei due, il più alto nel 
secondo. 

Provate con un numero di linea superiore a 255 e inferio¬ 
re a 65.535. 

Per terminare l’argomento facciamo un’ultima prova. 
Rientriamo sotto BASIC, digitiamo New (seguito da 
Cr) per cancellare il programma precedente e poi digitia¬ 
mo: 

10 END 

Ritorniamo, col comando Bye, al Monitor e guardiamo 
cosa c’è dall’indirizzo 6BCFh. Vedremo: 

06 - 00 - 0A - 00 - 98 

(tutti valori esadecimali), che, come abbiamo visto in 
precedenza, è la struttura di tale istruzione. 

La codifica di End, il valore 98h, si trova all’indirizzo 
6BD3h. Rientriamo sotto BASIC (col comando R se¬ 
guito da Cr) e digitiamo, in modo immediato: 

POK.ES 6BD3, S8F 

Dopo di che digitiamo il comando List. Vedremo che 
l’istruzione precedente è diventata ora: 

10PRINT 

Infatti, come avevamo già visto, il valore 8Fh era il 
codice associato all’istruzione Print. 

Ora possiamo, con tante Poke all’indirizzo 6BD3h 
date in modo immediato, inserire dei valori esadecimali 


L 

00 

LNI 

HNI 

1 

CA y no 





L 

(X) 

LNI 

UNI 

V 

- CA A B C D E 

00 


Figura 6. Esempi di strutture interne: 

1 ) Istruzione, 

2) Istruzione di assegnazione (Esempio V — N). 
Dove: 

L = lunghezza (in byte) dell'istruzione in memoria: 
LNI = valore basso del numero di linea; 

UNI = valore alto del numero di linea; 

/ = codifica dell'istruzione (vedere tabella I); 

CA = codice accompagnatorio. I valori accertati che 
può assumere sono i seguenti: 

• 15h per numeri reali decimali, 

• 16h per numeri esadecimali, 

• 20li per le istruzioni, 

V = variabile. 

Per le istruzioni di assegnazione (esempio V = N) 
avremo che: N = f (A,B,C,D,E) 


Tabella 1. Elenco istruzioni BASIC e relativa codifica 
esadecimale. 


Cod. 

Istruz. 

Cod. 

Istruì!. 

Cod. 

Istruz. 

Cod. 

Istruz. 

80 

Goto 

A0 

Poke 

CO 

Era se 

E0 

To 

81 

Gosub 

Al 

Off 

CI 

Error 

El 

Stop 

82 


A2 

Mode 

C2 


E2 

Thcn 

8.1 

Run 

A3 

Skip 

C3 

Usr 

E3 

Using 

84 

Return 

A4 

Plot 

C4 

Bye 

E4 


85 

Restore 

A5 

Line 

C5 


E5 


86 

Resumc 

A6 

Rlinc 

C6 


E6 

Tab 

87 

List 

A7 

Move 

CA 

Def 

E7 

Spc 

88 


A8 

Rmove 

C8 


E8 


89 

Dcletc 

A9 

Tron 

C9 


E9 


8A 

Renum 

AA 

Troll 

CA 


EA 


8B 

Auto 

AB 

Inp# 

CB 


EB 

Or 

8 C 


AC 


CC 


EC 

And 

8D 

For 

AD 

Gct 

CD 


ED 


8E 

Next 

AE 

Pcolor 

CE 

Wopen 

EE 

> < 

8F 

Print 

AF 

Phome 

CF 

Close 

EF 

< > 

90 


BO 

Hsct 

DO 

Ropen 

F0 

= < 

91 

Input 

B1 

Gprint 

DI 


FI 

< = 

92 


B2 

Key 

D2 


F2 

= > 

93 

ir 

B3 

Axis 

D3 


F3 

> = 

94 

Data 

B4 

Load 

D4 


F4 

= 

95 

Read 

B5 

Save 

D5 


F5 

> 

96 

Dim 

B6 

Mcrgc 

D6 


F6 

< 

97 

Rem 

B7 


D7 


F7 

+ 

98 

End 

B8 

Console 

D8 


F8 

— 

99 

Stop 

B9 


D9 

Kilt 

F9 


9A 

Coni 

BA 

Out# 

DA 


FA 


9B 

Cls 

BB 

Ci relè 

DB 


FB 

/ 

9C 


BC 

Test 

DC 


FC 

★ 

9D 

On 

BD 

Page 

DD 


FD 

T 

9E 

Lct 

BE 


DE 


FE 


9F 

New 

BF 


DF 


FF 



110 

















































Tabella 2. Elenco funzioni BASIC e relativa codifica 
esadecimale. 


Codice 

Funzione 

Codice 

Funzione 

80 

INT 

9E 

JOY 

81 

ABS 

A0 

CHRS 

82 

SIN 

Al 

STRS 

83 

COS 

A2 

HEXS 

84 

TAN 

AB 

ASC 

85 

LN 

AC 

LEN 

86 

EXP 

AD 

VAL 

87 

SQR 

B3 

ERN 

88 

RND 

B4 

ERL 

89 

PEEK 

B5 - 

SIZE 

8A 

ATN 

BA 

LEFTS 

8B 

SGN 

BB 

RIGHTS 

8C 

LOG 

BC 

MIDS 

8E 

PAI 

C3 

STRINGS 

8F 

RAD 

C4 

TIS 

95 

EOF 

C7 

FN 


compresi tra OOh e FFh, in modo da avere l’elenco di 
tutte le istruzioni BASIC presenti nell’interprete. Note¬ 
remo che da OOh a 1 Fh non vedremo niente di interes¬ 
sante (tali codici sono utilizzati per definire costanti 
numeriche decimali o esadecimali), da 20h a 7Fh vedre¬ 
mo tutti i caratteri che hanno codice ASCII corrispon¬ 
dente a tali valori (dallo spazio al carattere!), mentre dal 
valore 80h al FFh vedremo le istruzioni BASIC che 
abbiamo raggruppato nella tabella 1. 

In tale elenco vediamo istruzioni che non sono state 
dichiarate nel manuale. Tra queste le seguenti: 

ERASE-KILL-AND-OR 

originano un “Syntax Error”, mentre funzionano le 
seguenti: 

ls = pulizia del video; 

ron = inizia l’esecuzione a tracciamento (cioè stampa 
tutti i numeri di linea eseguiti); 

Troff = disabilita l’esecuzione a tracciamento; 
rt contiene il valore 3,1415927 (PI greco). 

Un procedimento analogo può essere seguito per deter¬ 
minare l’elenco delle funzioni trattate dall’interprete 
BASIC. Battiamo New e poi la seguente funzione: 

10 INT (A/B) 

Entriamo, come al solito, nel Monitor e vediamo cosa, 
c’è dall’indirizzo 6BCFh in poi. Troveremo: 

OC - 00 - 0A - 00 - FF - 80 - 28 - 41 - FB - 42 - 29 - 00 

Dopo tutto quanto detto presumiamo che sia il valore 
80h, all’indirizzo 6BD4h, il codice che identifica la fun¬ 
zione Int. Rientriamo nel BASIC e digitiamo, in modo 
immediato: 


POKES 6BD4, $nn 

con nn variabile da OOh, a FFh. Gli unici valori significa¬ 
tivi che incontreremo sono evidenziati nella tabella 2. 
Anche in questo caso incontriamo funzioni non elencate 
nel manuale. Di queste nuove funzioni le seguenti: 

EOF - STRING 

danno “Syntax Error” (forse anche perché, pur effet¬ 
tuando diversi tentativi, non abbiamo azzeccato la sin¬ 
tassi corretta), mentre le seguenti funzionano corretta- 
mente: 

Joy = ritorna un valore che dipende dalla posizione 
assunta dalla barra di controllo giochi. Non abbiamo 
potuto provarla ulteriormente, perché sprovvisti di joy¬ 
stick; 

Hex = ritorna il valore esadecimale che corrisponde al 
valore decimale dell’argomento. 

In conclusione, come detto all’inizio, possiamo dire che 
l’analisi finora condotta, anche se incompleta, è stata 
decisamente utile, perché ci ha permesso di scoprire 
almeno 6 nuove istruzioni BASIC funzionanti. ■ 
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Apple 


Posseggo da breve tempo un Apple Ile. Vorrei entrare In contat¬ 
to con club o privati per consigli, possibilmente in Piemonte. 
Carlo Audone - Via Marco Polo, 41 - 10129 Torino - Tel. 
011/599587 

Vorrei comunicare con ragazzi In possesso di un sistema Apple 
Il da poco tempo. Scrivere soltanto. Roberto Vacchetti - Via 
Provinciale. 66 - 12050 Castelrotto (CN) 


Vendo per Apple un programma che calcola l'ammor¬ 
tamento con i metodi francese, italiano, generico; 
creato in collaborazione con commercialisti. Per ulte¬ 
riori informazioni rivolgersi a. Luigi Palumbo - Via A. 
Ristori. 8 - 00197 Roma - Tel. 06/802783 


Vendo softwaro professionale sintesi sonoro-musicale per Ap¬ 
ple e Utilities fra le migliori. Vendo inoltre stupendi games. 
Ubaldo Ponzio - Via Mazzini. 10 -10127 Torino - Tel. 011/557672 


Commodore 


Per Commodore 64 realizzo su richiesta programmi gestionali 
per rappresentanti, medici, amministratori e per qualsiasi altra 
attività. Maurizio Galvini - Via Brunelleschl. 30/A - 20090 Trezza¬ 
no S/N (MI) - Tel. 02/4455203 

Causa cambio computer vendo C64 più registratore, Joystick e 
15 giochi. Materiale nuovo, ancora in garanzia, a L. 500.000 
trattabili. Telefonare ore serali dalle 20 in poi. Daniele Allegri - 
Via P. Togliatti, 8 • 28017 S. Maurizio D'Opaglio (NO) - Tel. 
0322/96283 

Regalo 20 cassette con programmi di utilità e games, 2 libri con 
50 listati per C64 a chi acquista CBM 64, registratore C2N e 
stampante MPS802 a sole L. 1.000.000 non trattabile. Telefonare 
ore pasti. Paolo Panetta - Via Fionide. 1 se. A - 74100 Taranto - 
Tel. 099/333144 

Vendo VIC 20 nuovissimo più libro con 2 programmi e due riviste 
"Supervlc" a L. 145.000. Giovanni Casandra - Corso Atellano, 
100 - 81030 Sant'Arpino (CE) - Tel. 081/8918651 


Anche per CBM 64 contabilità generale, partila dop¬ 
pia, programmi professionali per ingegneria con ma¬ 
nuali. utility e gestionali. Giordano Bifolchi - Via Di 
Gracciano nel Corso. Ili- 53045 Montepulciano (SI) • 
Tel. 0578/757907 


Affarone! Vendo Commodore 64 più registratore C2N, 4 super- 
cartucce videogame. 1 cassetta videogame, joystick, manuale 
d'uso. Tutto l'occorrente per divertirsi a sole L. 490.000. Pratica- 
mente nuovo! Telefonare ore serali. Andrea Benedet - Via Lodo- 
vico Muratori - 20135 Milano - Tel. 02/7532935 

Vendo CBM 64 più registratore, joystick, cassette con program¬ 
mi e 2 manuali. Il tutto in ottime condizioni. Roberto Brambilla • 
Via Liguria. 16 - 20038 Seregno (MI) - Tel. 0362/230565 

Sai programmare II tuo C64 In BASIC o In LM e abiti a Padova o 
dintorni? Se ti interessa scambiare idee o "trucchi ". mettiti in 
contatto con me. Telefona ore serali. Tommaso Masi - Via To- 
scanini. 17 - 35031 Abano Terme (PD) - Tel. 049/810881 

Vendo VIC 20 completo di accessori più registratore. 2 cartucce, 
10 programmi gioco in cassetta. 3 libri sul VIC. garanzia e 
istruzioni in italiano a L. 350.000 spedizione compresa. Lorenzo 
Colombina - Via S. Agostino. 293 - 36100 Vicenza - Tel. 
0444/568165 

Vendo VIC 20 più registratore C2N, monitor fosfori verdi 10". 
espansioni 8 Kbyte e 3 Kbyte S.E.. molto software a L. 550.000 
trattabili. Telefonare ore pasti. Paolo Zaio - Via Del Castagnone. 
33 - 15048 Valenza (AL) - Tel. 0131/951096 


Vendo Commodore 8032 più floppy 1 Mbyte, stampante 160 cps 
con ampia libreria software. Usato pochissimo, prezzo da con¬ 
cordare. Telefonare ore pasti a: Marco Succi - Via Bartolini, 14 - 
48100 Ravenna - Tel. 0544/38000 


Cerco urgentemente una tastiera per VIC 20 a L. 70.000-80.000 al 
massimo e vendo 10 giochi per VIC 20 a L. 10.000 (cassetta 
compresa). Stefano Flammia - Via Fosso Cavallo, 91 - 83040 
Fontanarosa (AV) 

Vendo cartucce nuove e sigillate a L. 30.000 per VIC 20. France¬ 
sco Garaventa - Via San Gaetano. 14/A -16030 Pieve Ligure (GE) 
- Tel. 010/3460432 

Cerco listati In linguaggio macchina di qualsiasi tipo. Inoltre 
cerco il libro "Giochi con il 6502". Rispondo a tutti e assicuro il 
dovuto compenso. Roberto Rebecchi - Via Genova. 16 - 29029 
Rivergaro (PC) - Tel. 0523/958252 

A L. 720.000 vendo CBM 64 più tape C2N e 4o programmi. In 
omaggio dò: VIC 20. 50 programmi. 18 riviste, 1 joystick, 1 libro 
sul VIC. 2 cassette di giochi sempre per C64. Telefonare ore 
pasti. Marcello Rutter - Via Beata Giovanna. 63/A - 36061 Bassa- 
no del Grappa (VI) - Tel. 0424/26924 

Vendo VIC 20 più registratore dedicato C2N (tutto perfottot) più 
manuale in italiano, libro "Alla scoperta del VIC 20". 50 pro¬ 
grammi. numerosi listati a L. 250.000. Inoltre regalo joystick. 
Massimo Bonaventura - Via Lorenzo Vidaschi, 31 - 00152 Roma - 
Tel 06/534533 

Vendo CBM 3032 con registratore C2N e manuale a L. 700.000. 
Telefonare dopo cena a: Roberto Biscani - Via Virgolane. 35 - 
38057 Porgine Valsugana (TN) - Tel. 0461/532690 

Vendo Commodore VIC 20 con registratore C2N e 55 giochi, un 
joystick, una paddle, libro BASIC 2 a prezzo eccezionale: L 
300.000 trattabili. Occasione, telefonate subito mi raccomando! 
Jacopo Rubbi - Via Paolo V - 44100 Ferrara - Tel. 0522/23953 

Vendo VIC 20 più espansione 16 Kbyte, machine language code 
monitor, completo di registratore, cavetti e manuali per l'uso. 
Prezzo Interessantissimo! Regalo inoltre una cassetta con più di 
60 giochi (molti in LM). Massimo Pegoraro - Piazzetta S. Gaeta¬ 
no. 6 - 36015 Schio (VI) - Tel. 24749 

Vendo VIC 20 più cavi e trasformatore, registratore, espansioni 
16 e 8 Kbyte. motherboard due entrate, manuale. 100 program¬ 
mi, in blocco. Preferibilmente in zona Milano. All'acquirente 
regalo joystick. Massimiliano Frosi - Via Magellano. 5 - 20094 
Corsico (MI) - Tel. 02/4408498 

Vendo una cartrldge più cassette per Commodore 64 e VIC 20. 
Vendesi registratore della Commodore a L. 78.000. Telefonare 
ore 20-21. Simone Nulchls - Via Sforza. 7 - 54031 Avenza-Carrara 
(MS)-Tel. 58512 

Vendo modem completo di attacchi per CBM 64, velocità 300 
baud con istruzioni e disco operativo a L. 250.000. Eventuale 
interfaccia RS232 a L. 50.000. Giampiero Toso - Via dell'Anguil¬ 
la. 10 - 33050 Latisana Località Aprilia (UD) - Tel. 0431/53000 

Vendo Commodore 1541 a L. 550.000; Commodore 64 più regi¬ 
stratore a L. 550.000; circa 600 programmi a L. 950.000. Il tutto in 
ottimo stato. Massimo Niccolai - Via Edilizia, 21 bis/C - 29100 
Piacenza 

Vendo causa doppio regalo espansione programmabile (3-8-16 
Kbyte) mal usata, valore effettivo L. 170.000. Non vendo ad un 
prezzo inferiore alle L. 145.000. Telefonare dopo le ore 20 o 
scrivere a: Marco Cavallari - Via Mazzini. 11 - 20054 Nova 
Milanese (MI) - Tel. 0362/42540 

Vendo VIC 20 più registratore, joystick, 3 cartucce giochi, 10 
cassette piene di giochi in alta risoluzione (Castel Dungeon, Lo 
Scalatore, ecc.), riviste ad un prezzo sbalorditivo. Telefonare 
ore pasti a: Maurizio Marras - Via Mascagni. 5 - 07029 Tempio 
Pausania - Tel. 079/630123 

Vendo VIC 20 più 5 cassette fra cui 3 adventure. manuale istru¬ 
zioni. 2 libri di programmi, interfaccia per registratore a L. 
200.000. Il tutto nuovo, solo 3 mesi di vita; telefonare ore 20-21. 
Daniele Luparello - Corso Unione Sovietica. 409 - 10135 Torino - 
Tel. 011/6193008 


Sinclair 


Cambio, vendo ZX Spectrum 48 Kbyte più Interfaccia Joystick, 1 
joystick, box sonoro, stabilizzatore ed un sacco di programmi a 
L. 450.000. Cambio solo con CBM 64 più registratore in buone 
condizioni. Elio Marchi - Via S. Donato. 72 - 55100 Lucca - Tel. 
0583/584651 

Per Spectrum 48 Kbyte cerco giochi Adventure con grafica, 
completi di istruzioni o manuali. Inoltre cerco programma che 
traduca il BASIC in linguaggio macchina. Francesco Ghirotti - 
Via Perilli. 11 - 48100 Ravenna - Tel. 0544/422254 


Vendo stampante ZX printer e quattro rotoli di carta metallizzata 

a L. 80.000. Inoltre vendo interfaccia programmabile joystick 
Tenkolek a L. 40.000. Telefonare a: Paolo Bellocci - Via San 
Goltardo. 75 - 20052 Monza (MI) - Tel. 039/367709 

Vendo ZX Spectrum 48 Kbyte più registratore, interfaccia joy¬ 
stick. manuale in italiano, 200 programmi inglesi. Il tutto a L. 
490.000. Inoltre vendo Intellevision con cartucce Burger Time, 
Soccer, ecc. a L. 300.000. Alfonso Mauro - Via Vi Settembre, 36 - 
84100 Salerno (SA) - Tel. 089/321389 

Vendo Sinclair ZX Spectrum 48 Kbyte; 1 anno di vita, ottimo 
stato; manuale d'uso in italiano, alimentatore con levetta reset, 
corredo di programmi vari (giochi, utility) a L. 500.000 trattabili. 
Telefonare ore pasti. Mauro Padovan - Via Bellini. 24 - 47039 
Savignano S.R. (FO) - Tel. 0541/945790 

Occasione! Vendo per Spectrum favolosa Interfaccia program¬ 
mabile per joystick a sole L. 35.000! Telefonate subito, dopo le 
19.30 a: Alessandro Gozzo - Viale Zara, 63 - 20159 Milano - Tel. 
02/682659 

Vorrei comprare un personal computer, preferibilmente Sinclair 
Spectrum o altri del valore che si aggiri sulle L. 500.000. Scrivere 
o telefonare ore pasti. Gaetano Bennardo - Via Italia. 2 • 92026 
Favara (AG) - Tel. 31329 

Vendo Spectrum 16 Kbyte usato pochissimo, 1 anno di vita, 
imballo originale con supergaranzia. alimentatore e cavi, ma¬ 
nuale italiano, cassette Horizon e Intruders a sole L. 220.000. 
Franco Di Molletta - Via XX Settembre. 24 - 25070 Sabbio Chiese 
(BS)-Tel. 0365/85151 

Vendo a L. 5.000 non trattabili la compiota traduzione del ma¬ 
nuale del gioco "The Lords of Mldnlght" per Spectrum, oseguita 
interamente e dattiloscritta. Riccardo Ghinl - Via Ferrari. 181/4 - 
17011 Albisola Capo (SV) - Tel. 019/40448 

Vendo ZX Spectrum porfottamonte funzionante completo di ali¬ 
mentatore. cavi, circa 150 programmi (giochi, matematici, inge¬ 
gneria civile) al fantastico prezzo di L. 600.000. Gerardo Manni • 
Via Poppo. 20 - 25043 Brano (BS) - Tel. 0364/22724 


I Novità! Ora il tuo computer può anche sviluppare le 

■ espressioni algebriche. Programma più manuale L 

■ 33.000 per C64-L. 26,000 per VIC 20 più espansione -L. 
I 27.000 per Spectrum 48 Kbyte. Aldo Montaldo - Via A. 

■ Zupi, 19 - 87100 Cosenza 


Vendo per Spectrum eccezionale ed unico programma per oro¬ 
scopi con dettagliato istruzioni. Per l'utilizzo del programma 
vendo a richiesta tabelle effemeridi, case, tempo siderale. Mau¬ 
rizio Baldecchi - Via Manzoni, 31 - 50015 Grassina (FI) - Tel. 
055/441668 

Vendo ZX Spectrum con manuali, cavi, alimentatore in ottime 
condizioni e numerose cassette a L. 270.000 non trattabili. Pietro 
lacoboni - Via G. Marconi. 9 - 60054 Fabriano (AN) - Tel. 
0732/3002 

Attenzione: vendo per Sinclair QL un programma che aggiunge 
35 fantastici comandi di geometria e vari altri programmi per il 
QL su microcassetta a L. 40.000 più spese. Per informazioni 
scrivere a: Gianni Oliviero - Via Cerlungo. 29 - 25018 Montichiari 
(BS) 

Vendo Spectrum 48 Kbyte più ZX Printer (perfettamente funzio¬ 
nanti) più 100 programmi su listato, 100 programmi su cassetta. 
3 libri sullo Spectrum. tutto a L. 450.000 trattabili. Anacleto 
Furlan - Viale Papa Giovanni, 35/10 - 31015 Conegliano Veneto 
(TV) -Tel 0438/32818 

Vendo ZX Spectrum 16 Kbyte con fantastici giochi ed utility. A chi 
lo desiderasse aggiungo registratore. Il tutto vale più di L. 
670.000; cedo per sole L. 460.000 trattabili. Telefonare al pome¬ 
riggio. Fabio Bonamigo - Via Della Stazione, 1 - 36022 Cassola 
(VI)-Tel 0424/813029 

Vendo ZX Spectrum 48 Kbyte, interfaccia Kempslon più un joy¬ 
stick. presa monitor e tasto reset, più II miglior software esisten¬ 
te. il tutto a L. 395.000. Tratto preferibilmente in zona Milano. 
Telefonare ore pasti. Paolo Ballocci - Via San Gottardo, 75 - 
20052 Monza - Tel. 039/367709 

Vendo ZX81 più 16 Kbyte, cavetti per televisore, cavetti per 
registratore, software a L. 160.000 trattabilissimi. Por ulteriori 
informazioni telefonare o scrivere a. Antonio Marino - Via Spar¬ 
taco. 65 - 71013 S.Giovanni Rotondo (FG) - Tel. 0882/856663 

Vendo per Spectrum 48 Kbyte programma per la riduzione del 
sistemi Totocalcio scritto in linguaggio macchina. Superveloce! 
Consente la riduzione statistica e/o condizionata a errore. Fran¬ 
cesco Arculeo - Via V 58. 6 - 90125 Palermo - Tel. 091/444432 
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Vendo Spectrum 48 Kbyte (4 mesi di vita) più interfaccia 1. 
microdrive, joystick Magnum, interfaccia Kempston, cavetti, 
manuali italiani. 200 programmi, libro Sinclair Spectrum Assem¬ 
bler e Linguaggio Macchina ecc. a L. 700.000 trattabili. Fabio La 
Porta - Via Montuoro, 5 - 90145 Palermo - Tel. 091/57140 


Texas 


Vendo Texas TI 99/4A completo di cavetti, registratore Inno Hit. 
manuali, giornali e 50 giochi in BASIC. Prezzo da concordare. 
Telefonare a: Paolo Desorafino • Via Castello, 99-10123 Torino - 
Tel. 011/549035 

Vendo per TI 99/4A peripheral box, disk controller, disk drive, 32 
Kbyte RAM; lutto a L. 1.500.000 non trattabili. Tratto solo con la 
Lombardia. Telefonare solo la domenica. Carlo Aceti - Via I 
Maggio. 4 - 22050 Verderio Inferiore (CO) - Tel. 039/510715 

Vendo simulazione di volo In tempo realo per TI 99 con Extended 
BASIC a L. 8.000; è un programma che sfrutta al limite le capaci¬ 
tà del TI. possiede ben 10 strumenti. Aldo Tomaselli - Via Roma, 
18 - 38059 Strigno (TN) - Tel. 762007 

Vendo TI 99/4A più joystick, cavo registratore, libro didattico a L. 
220.000; il tutto imballato. Vendo inoltre il modulo Extended a L. 
110.000. moduli SSS (Calcio. Scacchi. Parsec. Carwar. Attack) a 
L. 20.000 l'uno. Arcangelo Jeker • Via Guastalla, 15 - 20122 
Milano-Tel. 78257 


Vendo TI 99/4A nuovo più 3 giochi in cartuccia (Parsec. Scacchi. 
Munch Man), cavo per registrazione, manuale d'uso a L. 
200.000. Telefonare ore ufficio. Fabio Maggi - Via Togliatti. 48/50 
- 20017 Mazzo di Rho (MI) - Tel. 9303208 


Vendo TI 99 più Extended BASIC, espansione 32 Kbyte, joystick, 
400 programmi, manuali, libri, modulatore PAL. alimentatore al 
favoloso prezzo di L. 600.000 o permuto con Spectrum 48 Kbyte 
più microdrive e interfaccia 1. Luca Sburlati - Via Lomellina, 18 - 
10132 Torino - Tel. 011/834116 


Compro per Texas TI 99/4A Interfaccia RS232 per peripheral 
box. Scrivere a Raffaele Ferrigno - Via D'Isernia, 4 - 80122 Napoli 
-Tel. 081/681571 


Vendo TI Extended BASIC più box expanslon, peripheral card, 
expansion card 48 Kbyte, 3 libri sul TI 99/4A a L. 700.000 non 
trattabili. Telefonare ore pasti. Giancarlo Russo - Via Matteo 
Rossi. 17 - 84100 Salerno - Tel. 089/238377 


Vendo TI 99/4A, SSS Alplner e Munchman con imballaggi origi¬ 
nali, cassetta piena di programmi a L. 270.000. Telefonare ore 
pasti a: Stefano Bartolozzi - Via Piave. 104 - 52025 Montevarchi 
(AR)-Tel. 055/983414 


Occasionissima, causa passaggio sistema, vendo nuovissimo 
TI 99/4A più alimentatore, modulatore di frequenza, coppia ori¬ 
ginale joystick e cavetti registratore, inoltre, Solid State Softwa¬ 
re Video Chess (Scacchi). SSS Alpiner. Beginner's BASIC Tutor 
della Texas, materiale per imparare il BASIC. Fornisco, inoltre, 
cassette con software; Labirinto 3D. Bruco di Bemer, Caverna di 
Marte. Music Teacher. ecc.. il tutto completo di imballo originale 
a sole L. 270.000 trattabili. Telefonare o scrivere a: Stefano 
Andreatta - Via Pisani. 9/c - 30173 Mestre (VE) - Tel. 041/956449 


Cerco Extended BASIC per TI 99. Prezzo massimo L. 150.000. 
Telefonare ore pasti. Matteo Morini - Via Tempia. 12 - 13042 
Cavagliò (VC) - Tel. 0161/96283 


Cerco Extonded BASIC per TI 99/4A. Inoltre compro o cambio 
software; dispongo di alcuni programmi inediti (Totocalcio, En- 
glish Teacher). Marcello Bartolotta - Piazza V. Veneto. 3 - 90143 
Palermo - Tel. 091/522532 


Vendo TI 99/4A più BASIC esteso, sintetizzatore voca¬ 
le. Speech Editor. Terminal Emulator 2. interfaccia 
consolle-registratore, coppia joystick, oltre 250 giochi 
(BASIC ed Extended), molti programmi applicativi e 
■ gestionali, vari manuali d'uso. Il tutlo ha solo tre mesi 
di vita ed ò in condizioni eccezionali. Vendo a L. 
510.000 trattabili anziché L. 813.000. Daniele Cerreti - 
Via Tomba di Nerone. 23 (Cassia) - 00189 Roma - Tel. 
06/3661311 


Vendo TI 99/4A completo di; modulatore, alimentatore, manua¬ 
le, cavo per registratore, cassetta "BASIC Tutor”, joystick, mo¬ 
duli SSS "Videogiochi 1" e "Videogiochi 2". giochi, libri a sole L. 
250.000. Rosario Incarbone - Via Francesco Acri. 3 - 87100 Co¬ 
senza - Tel. 0984/20492 


Regalo 35 programmi in TI BASIC e oltre 100 listati a chi acquista 
TI 99/4A con manuale, Imballo originale, 2 joystick, 2 libri da L. 
32.000, modulatore TV. cavo collegamento per registratore, tra¬ 
sformatore. Il tutto a L. 200.000 trattabili! Telefonare ore serali a: 
Marco Scopellili - Tel. 02/9840452 


Compro per TI 99/4A programmi di ogni tipo, soprattutto giochi. 
Scrivere inviando la lista ed il prezzo a; Giuseppe Rossonl - Via 4 
Novembre. 3 - 24049 Verdellino (BG) - Tel. 882229 


Vendo TI 99/4A con accessori (modulatore TV. trasformatore 
220V, cavo registratore). BASIC esteso, libro per apprendimen¬ 
to. Allego manuali originali e registratore Texas con vari pro¬ 
grammi. Tutto a L. 450.000. Alfonso Battista - Via Dell'Arco di San 
Calisto. 22 - 00153 Roma 

Vondo in blocco: Texas TI 99/4A, registratore, joystick, 3 moduli 
SSS. 7 cassette con programmi vari e 3 libri sulla programma¬ 
zione a L. 290.000. Telefonare ore pasti. Andrea Stefani - Via 
Elba. 9 - 00015 Monterotondo (RM) - Tel. 06/9005962 

Vendo TI 99/4A In ottime condizioni completo di: consolle, ali¬ 
mentatore. cavo registratore. Extended BASIC, numerosissimi 
ottimi programmi. Telefonare ore pasti serali. Tutto a L. 300.000 
trattabili. Marco Ferri - Via Lago Maggiore. 13 - 20075 Lodi (MI) - 
Tel. 0371/51585 

Vendo TI 99/4A a sole L. 300.000. con 6 splendide cartucce 
(Mangman, Calcio, Chisolm-Trail. Wumpus, A-maze-ing, Alpi¬ 
ner). Telefonare o scrivere a: Massimo Pinto - Via Domenico 
Fontana. 184 - 80131 Napoli - Tel. 081/251598 

Data 99; una stupenda raccolta di 18 programmi Inediti per il tuo 
Texas TI 99/4A interamente scritti in TI BASIC. In questo primo 
numero troverai programmi di svago, utilità e didattica. La cas¬ 
setta più il manuale di spiegazioni ti verranno spediti in contras- 
segno a sole L. 20.000 (spedizione compresa). Si assicura tem¬ 
pestività e massima serietà. Per richiedere il primo numero: 
Data 99 - Via Arenella. 81 - 80128 Napoli - Tel. 081/24079 


Varie 


Vendo Alari, due Joystick, cinque cassette: Pac Man, Combat, 
Asteroids, Defender. Space War; tutto in perfette condizioni a L. 
250.000. Andrea Cero • Via G. Verdi. 3 - 32010 Dozza di Zoldo (BL) 
- Tel. 0437/78314 


Vendo consolle Intellevlslon, 1 anno di vita, con 3 cassette: 
Sharp Shark. Triple Action, Vectron; tutto a L. 200.000. Telefona¬ 
re dopo le ore 20. Vendo anche cassette per Spectrum a 16-48 
Kbyte a L. 15.000. Angelo Bollati - Via Resegone. 8 - 20010 
Canegrate (MI) - tei. 0331/400631 


Vendo VCS Alari, tutto compreso, a L. 190.000, cassette a L. 
20.000 cadauna. Telefonare ore pasti chiedendo di Alfonso o 
Gianfranco. Alfonso Di Giampietro - Via Dei Caccia. 11 - 28100 
Novara - Tel. 0321/380425 

Vendo computer Olivetti M20, otto mesi di vita, con espansione 
memoria 64 Kbyte RAM. con i seguenti programmi della casa: 
Multiplan. Oliword. Assembler, Calcolo sismico e molti altri a L. 
6.000.000. Marco Zazzeri - Via Valzania, 25 - 48100 Portofuori 
(RA) - Tel. 0544/433557 

Vendo al miglior offerente scheda AIM 65 Rockwell funzionante, 
completa di tutti gli accessori, anche del mobile e dei manuali 
(5). oppure cambio con periferiche per Spectrum 48 Kbyte. Fran¬ 
cesco Ghirotti - Via Perilli. 11 - 48100 Ravenna - Tel. 0544/422254 

Vendo base Intellevlslon più Frog Bog, Soccer. Tron II. Ice Trek, 
Burger Time, Poker in ottimo stato, il tutto completo di imballag¬ 
gio, a L. 200.000. Sergio Castaldo - Parco San Paolo. 32 - 80126 
Napoli-Tel. 081/7674796 

Vendo le seguenti schede per mlcro N.E.: LX383 int. tast. easdec. 
a L. 80.000; LX384 tastiera esadec. a L. 85.000; LX385 int. regi¬ 
stratore a L. 115.000, LX386 espansione 8 Kbyte a L. 110.000. 
Marco Cozzani - Piazzetta U. Cheirasco. 1 - 19100 La Spezia - 
Tel. 0187/508817 

Vendo Apple II plus compatibile con unità disco, controller e 
monitor 12" fosfori verdi. Il tutto a L. 1.650.000. Stefano Goria - 
Via Accademia Albertina. 40 - 10123 Torino - Tel. 011/510173 


Vendo Sharp MZ-731 con registratore e stampante (a 4 colori) 
Incorporati, con 11 giochi e alcune riviste a L. 650.000. Il compu¬ 
ter ha solo tre mesi dt vita, con garanzia ancora valida. Enrico 
Villanova - Via Botteniga, 61 - 31100 Treviso (TV) - Tel. 
0422/24211 


Vendo Atarl VCS 2600 più 6 cassette (Decathlon, Enduro, Van- 
guard. Raiders Of The Lost Ark, Ms. Pacman, Space Invàderà), 
comando fuoco rapido Pointmaster. Il tutto a L. 350.000 trattabili. 
Daniele Luparello - Corso Unione Sovietica, 409 -10135 Torino - 
Tel. 011/6193008 


Vendo consolle Intellevlslon più 13 cartucce. Telefonare ore 
serali. Alessandro Violani - Via D. Secchia, 2 - 40131 Bologna - 
Tel. 051/554317 


Sei anche tu un utente Vlctor-SIrlus? Scrivimil Potremmo esser¬ 
ci utili a vicenda. Salvo Giudice - Via Pio X, 50 - 31031 Caerano S. 
Marco (TV) - Tel. 0423/858201 


Olivetti M24, IBM PC ed IBM compatibili: cerco possessori di 
questi sistemi per scambio di esperienze e software, linguaggi 
BASIC. Pascal. Assembler. Mario Manuzzi - Via Serraglio, 37 - 
47023 Cesena (FO) - Tel. 0547/21947 


| Vendo computer portatile Philips P2000C nuovo, video 

■ 9' 24x80 (verde), 64 Kbyte RAM. 2 floppy 5,25" da 640 

■ Kbyte ciascuno, tastiera italiano, completo di: CP/M 
B 2.2. Fortran. MSBASIC, Magro 80. Link 80. Wordstar, 

I Mailmerge, SpellStar, CafìStar, InfoStar. dBase II. Pa- 
I scal MT e numerosi altri pacchetti di utilità come as- 
I semblatori, editor, disassemblatori, debug, ecc. Il tut- 

■ lo a L. 3.000.000. Telefonare a Enzo. tei. 02/425581 


■ IN BASIC s.n.c., Via Sazze 22. 04100 Latina, tal. 

■ 0773/487631 (Prof. Carlo Slntlnl). Programmi di ogni 

■ tipo; scompilatore-compilatore per S.B.; manuali; tra- 

■ duzioni. Inviare L. 3.000 per lista. 


Vendo Sharp MZ-731 (plotter e registratore incorporati) 64 Kbyte 
più programma Easy Data, cassetta S-BASIC e 10 giochi. Telefo¬ 
nare ore serali. Marco Carpani - Via Cacciapiatti, 10 - 28100 
Novara-Tel. 0321/34713 


Cassette originali: "Load’n'Run", "Soft", "Libreria Software", 
corso "input" agg. ed altro. Svendo con regali. Annuncio sempre 
valido, solo zona Palermo/Trapani. Francesco Burgio - Via No- 
tarbartolo, 49 - 90100 Palermo - Tel. 091/266096 

Vendo Intellevlslon In ottime condizioni più una cassetta a L. 
150.000. Vendo anche Frog Bog. Calcio. Sci a L. 20.000; Demon 
Attack, Burgertime L. 30.000. Oppure vendo il tutto in blocco a L. 
240.0000. Federico Ciampi - Via Vecchia Fiorentina. 64 - 56023 S. 
Lorenzo alle Corti (PI) - Tel. 050/770447 

Vendo programmi di Ingegneria civile (telai, travi, ecc.) per 
Sharp PC 1500 adattabili ad altri computer. Sansone Carmelo - 
Camera 130 - Viale Resistenza. 15 - 27100 Pavia - Tel. 
0382/301271 

Cambio programmi ed esperienze su HP71B. Sono Interessato 
ad applicazioni tecnico scientifiche. Sarei anche interessato alla 
formazione di un club pocket computer HP. Contattare urgente¬ 
mente. Annuncio sempre valido. Giuseppe Toriuccio - Via Seli¬ 
ce. 42 - 40026 Imola (BO) - Tel. 0542/35409 

Causa passaggio ad unità superiore vendo Sharp MZ-721 usato 
pochissimo con cassette giochi e programmi vari, a L. 620.000. 
Telefonare ore pasti. Gianfranco Acerbi - Via T. Vecellio. 112 - 
35132 Padova - Tel. 049/605216 

Vendo Atarl Computer System più 7 cassette quasi nuove. Scri¬ 
vere o telefonare a: Renato Belardinelli - Piazza S. Gallo, 1 • 
60100 Ancona - Tel. 071/22876 

Vendo stampante Mlcrollne u80 80 caratteri a L. 900.000 con 
imballaggio originale e connessioni. Poche ore di funzionamen¬ 
to (scrittura bidirezionale). Telefonare ore pasti. Cristina Curti - 
Via Campeggi. 2-27100 Pavia - Tel. 0382/57089 407089 

Svendo stampante Mlcrollne u80 a L. 800.000; drive 8" a L. 
800.000; monitor Olivetti mod. Tes 601 antiriflesso a L. 400.000; il 
tutto usato veramente poco. Telefonare ore pasti. Davide Man- 
nozzi - Via Cattaneo. 11 -27100 Pavia - Tel. 0382/472984 

Cerco chiunque sla In possesso del nr. 2 • 4 di "Personal 
Software". Sono interessato solo a poche fotocopie delle parti 
riguardanti software per il PET. Scrivetemi! Roberto Rebecchi - 
Via Genova. 16 - 29029 Rivergaro (PC) 

Vendo Personal Kld 100% Apple compatibile 64 Kbyte. 2 drive 5" 
Slim, monitor colori 14" a L. 2.500.000 ancora in garanzia. Tele¬ 
fonare dopo le 19. Massimo Ciucci - Viale Famagosta, 24 - 20142 
Milano-Tel. 02/816427 
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La biblioteca per ragazzi 
firmata 


Jackso 


ritagliare (o fotocopiare) e spedire in busta chiusa a 
GRUPPO EDITORIALE JACKSON • Divisione Libri • Via Rosolimi, 12 • 20124 Milano 


lan Graham 

GIOCHI CON 
IL COMPUTER 


Il libro, parta di giochi con il compu¬ 
ter una volta tanto visti dalla parte 
del computer, e non dell'utente 
In particolare spiega, in modo sem¬ 
plice ma preciso, come ta il compu¬ 
ter a giocare, come la a produrre im¬ 
magini e suoni durante il gioco e co¬ 
me fa (in genere!) a vincere 
Cod. 0060 Pag. 48 Un 9.000 


Brian Retfin Smith 


IMPARIAMO 

A PROGRAMMARE Judy jatchell ■ Bill Bennati 


CEDOLA DI COMMISSIONE LIBRARIA 

VOGLIATE SPEDIRMI 


Il libro fornisce le conoscenze essen¬ 
ziali per incominciare a programmare 
in BASIC su di un personal com¬ 
puter 

Cod. 0180 Pag. 48 Un 9.000 


PRIMI PASSI 
IN BASIC 

Il libro propone l'apprendimento del 
linguaggio BASIC tramite lo studio e 
l’esame dettagliato di programmi già 
scritti. 

Cod. 0070 Pag. 48 Un 9.000 

Tony Potter - Ivor Guild 

I ROBOT 


CONOSCERE 
IL PERSONAL 

Il libro spiega che cosa si può fare 
con un personal computer, come si 
usa e come funziona. 

Cod 008D Pag. 48 Un 9.000 

Lynn Miring - lan Graham 

RIVOLUZIONE 

INFORMATICA 

Il volume è rivolto in particolare ai 
bambini, ma anche a tutti coloro 
che, presto o tardi, verranno coinvol¬ 
ti dalle nuove tecniche informatiche 
più come utenti che come operatori. 
Cod. 0040 Pag. 48 Un 9.000 


n° copie 

codice 

Prezzo unitario 

Prezzo totale 

























Totale 



Pagherò contrassegno al postino il prezzo indicato piu L. 3.000 per contributo 
fisso spese di spedizione. 

Condizioni di pagamento con esenzione del contributo spese di spedizione: 

D Allego assegno della Banca □ Allego fotocopia del versamento 

su eie n 11666203 a voi intestato 

□ Allego fotocopia di versamento 

n° _ su vaglia postale a voi intestato 

Nome 


Dopo una rapida panoramica su che 
cosa può fare un robot, il libro pre¬ 
senta una serie di robot con funzioni 
particolari: i robot a braccio, i robot 
operai, i robot nello spazio, etc. 
Affronta poi il problema di come un 
robot può essere programmato e 
controllato da un computer, e di co¬ 
me praticamente si realizza un robot 

Cod. 0030 Pag. 48 Un 9.000 
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Via 

Cap 

Otta 

Prov 

Data 

Firma 



Spazio riservato alle Aziende. Si richiede l'emissione di iattura 

ORDINE 

Partita I V A 

1 I 1 I i—L 1—1— i—1— 1 —1 

MINIMO 

L 50.000 






























Aul DM 4/275256 del 2/3/85 


7 Note Bit 



Il 1985 è l'anno mondiale della musica... 
preparati con 7 note Bit , la nuova, fantastica opera 
che in soli 15 fascicoli quattordicinali (ciascuno 
corredato da una cassetta software per Commodore 64) 
ti insegna veramente la musica. E puoi suonare subito 
Non perdere il primo numero. Pensa, compresa nel 
prezzo c'è anche la stupenda tastiera professionale per 
il tuo Commodore 64. 


GRUPPO 

^ M EDITORIALE 
Wm JACKSON 

Soi Franaico • Lorxiu • Mjlano 

IN COLLABORAZIONE CON SJO— 



....EVINCI 30 STRAORDINARI 
COMMODORE PLUS/4 
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